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Do you write your own 
programmes? W you have 
an unusual programme 
which can meet our 
standards you could be 
earning more than C250 per 
week. Why not take 
advantage of our sought 
after reputation. Write now! 



HOW TO ORDER 
You may purchase any of the Games 
listed from most good BBC Software 
Stockists, WH Smiths, HMV or your 
nearest Spectrum Dealer, 

To order direct, fill in the coupon below 
with your requirements, make 
cheque PO payable to: SOFTWARE 
INVASION and post to us Please allow 7 
to 14 days for delivery. 



(Title) 



□ (TAPE) □ 40 TRACK 

□ (DISK) □ 80 TRACK (Please lick) 

(Title) (Qnty.) £ 

□ (TAPE) □ 40 TRACK 

□ (DISK) QSO TRACK (Please lick) 
(Trlle) (Qnty) £ 

□ (TAPE) □ 40 TRACK 

□ (DISK) 080 TRACK (Please lick) 

(Title) (Qnty) £ 

□ (TAPE) □ 40 TRACK 

□ (DISK) 080 TRACK (Please tick) 

Total £ 



Post to: SOFTWARE INVASION 50 ELBOROUGH STREET SOUTHRELOS LONDON SW18 5DN 
(Qnty.) £ 

I enclose my cheque/RO. for£ 



NAME 

ADDRESS 



t**t * 
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TEL: (Day) TEL: (Eve) 

□ I am a Distributor/Multiple/Retailer/Dealer. 
Please contact me. 

(Please delete whichever not applicable) 




Outstanding 
efforts 

CHOOSING the best 20 listings 
from the many which readers 
sent for this issue of Acorn 
Programs has not been an easy task. 
Your efforts have produced some out- 
standing results and therefore we are 
publishing the first of what we hope 
will be many Star Programs, worth a 
double fee of £30 to the author. Our 

Star Program for this issue is Ghost 
Hunter, a chilling and professionally- 
designed game by Paul Williams of 
Bury, Lanes — page 30. 

We have also, once again, expanded 
the editorial content to provide all the 
software and programming advice you 
need. Besides our usual three pages of 
software reviews, there is an in-depth 
appraisal of the latest releases from 
Acornsoft and more advice on your 
programming queries from our Hotline 
expert. Bruce Smith has read some new 
books and Jeremy Richards goes back to 
basics in the start of a series on pro- 
gramming your BBC or Electron. 

We still need your programs, so keep 
sending them — on disc or cassette with 
a brief explanation of what each one 
does and for which machine it is intend- 
ed. Obviously we cannot print all the 
work you send and we will return any 
cassettes we do not plan to use, pro- 
vided they are accompanied by a SAE. 

As usual, all our listings have been 
made from working copies of the pro- 
grams and all will run on the BBC B, 
even if written for the Electron. 

7U £^ 
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"THE BEST AND FASTEST SERVICE 
ON THE SOFTWARE MARKET" 

(B. Strasser, Jordan) 

CONFUSED by the growing choice of BBC programs? We can help. We've played hundreds to choose the best (like the ones on this page.) Details 
in our catalogue - free with your order. It's the only catalogue to give details of the best, omit the rest and quote all the reviews. All programs work 
with keyboard control or joystix as shown. All programs FOR 32K BBC. 

WE TRY TO SEND YOUR PROGRAMS THE SAME DAY WE GET YOUR ORDER. Access/Visa card holders phone 01-789 8546, 24hrs, from 
any country where your own laws allow this. All games in stock - and tested by us - BEFORE we advertise them! Try us and see ... 

Of course, we have the classics like THE HOBBIT (text only) £14.95 and PIMANIA (win £6,000!) £10.00 and the 747 FLIGHT SIMULATOR ("the 
best") £8.95. But we also have, among others ... 



£ : 3 I T K~i jJ t9 | ; , ^ " ew "'y''' simulator Wl ''' 'wo differences: first, ibe controls 
*J 1 - ' l » • IV t ore different because the plane is old; second, you can learn 
aerobatics not just flying! Your instrument panel is copied from the Mark XIV Spitfire. 20 
control keys and the cursors for your joystick. Clear, big instruments, leorn turning, banking, 
stalling, spinning, looping • and landing before the luel runs out. Very convincing engine noise 
varies with your engine speed! Needs skill and concentration. NO STIX (Alligata) £7.95 



BLAGGER 



Brand-new 20 SCREEN fully animated graphic gome. (It's 
quite a lot like M*N*C M'N'R, actually.) Beautiful graphics, 
the screen is olive with movement as you try to collect keys to the safes. Each of the 20 screens 
is a different puzzle, with o different solution. Will your burglor moke it? You'll certainly 
make him try lor weeks! NO STIX (Alligata) £7-95 



PFTTI(^PFW'<S HI APY '^'9u-ng new 3 part 

■ C ■ ■ l\7l\tff *■# L/1*"\IV I graphic + text adventure. 

Each chopter loads separately and you must finish eoch to reach the next! Can you unravel 
the secrets of the diary in the Burning Farmhouse (what must you rescue? How?) in London 
Frolics (realtime text adventure; collect information, not objects) and in European Trek 
(8 separate challenges!). The most challenging adventure we've met recently - ond varied 
enough to keep you interested. NO STIX. (Shards) £7.95 



GORF 



For children of all ages, the bargain of the year! Four arcade games 
linked together on one tape for one price! - and with very pretty, fast- 
moving graphics (*• Holl of Fame!. Fight your way through SPACE INVADERS, LASER ATTACK, 
FIREBIRD ond MOTHERSHIP. Its very hard to get bored - or to remember the right technique 
for each game! STIX OK (Dr SOFT) £7.95 



FORTRESS 



Too new for reviews, this 'ZAXXON* type game works 
beautifully on your Beeb. As Pace soy ... the Fortress awaits 
you- It is a classic computer game, m a smashing 3D graphic form. All the features you would 
expect, plus a Hall of Fame. Fast ond furious. STIX OK. (Poc«) £8.95 



|3 ^^\ ^^\ I A very realistic simulation in ihis game for two players. (With very good 
■ ^^^^ L Scott Joplin music, too!) You con ploy sofo to perfect your technique* 
Excellent ond smooth hires colour graphics moke the full-screen table a pleasure to play on. 
You control the cue angle and strength of shot and can get it down to a fine orl. Choose the 
frames to ploy, too. Great display: very satisfying program. NO STIX. (Dynabyte! £7.95 



LORDS OF TIME 



Some of the most intriguing puzzles f ve 
come across ... not to be missed". (Home 
CompWkly) 'Executed with wonderful style ... highly recommended' (PopCompWkly) 
In this text-puzzle adventure you must collect 9 objects, each marked with an hourglass, from 
different timezones from the Ice Age to the Spoce Age- 200+ locations. 750 messages, 80 
ob|ects, vocabulary over 200 words. Beautifully written and mare sophisticated thon ever. 
NO STIX (Uv«l 9) £9.90 



PINBALL ARCADE 



As professional a piece of software 
os you ore likely to find ... the 
graphs are exceptionally good (C&VGomes) DESIGN YOUR OWN PINBALL TABLES! 
One example is included, but the fun is designing, ploying and saving your own. You con add 
or take away or move 38 different feotures - springs, wires, flashing lights, bumpers. Alter their 
scores, their bounce. Alter the flippers, even tilt the table- Change just about everything, 
quickly ond easily. Then play wtth the results. Be your own Pinball Wizard* 
NO STIX. (Kansas) £9,90 



BIRDIE BARRAGE 



Very little to fault ... well- presented. 

ond as accurate os you're going fo 
get (PersCompNews) The best golf gome we've seen for the Beeb. Acorn Pork Golf Course 
has 18 holes, 72 par You have a full bag of clubs and full screen graphics to play with. Set 
direction and power of each shot very occurately * and watch your ball in flight. Special 
detailed display when you reach the green. Wind strength, direction, changes between 
holes. NO STIX. (Computasolv*) £7,95 



Sure to 
become o 



TWIN KINGDOM VALLEY 

classic an involved ond difficult adventure . the excellent graphics add to the enjoyment" 
(MtcroAdventurer) Not only a great adventure, but all 175 locations are drown in hi res 
graphics and some of the beautiful drawings contain clues 36 commands: realtime adventure 
with 6 control options Rapidly becoming OUR BEST SELLER! NO STIX. (Bug-ByU) £9.50 



SOFTWARE SUPERMARKET 



VISA/ACCESS: CALL 01 -789 8546 (24 hrs) 



CYLON ATTACK 



Stands head ond shoulders above fhe 
rest' (Acorn User) Excellent the 
standard by which other games will be judged P (Micro User). A superb program wtth excellent 
graphics" (CompChoice) You will really believe you ore launching from and docking with a 
mother ship: you will see and feel you ore refuelling; you will know exactly when you con kill 
the enemy. UNIQUE 50-PLACE HI SCORE TABLE CAN BE SAVED. Great. And 3D, of course, 
STIX OK. (A A F) £7.90 

^P^J I" lL I ^^ ^1 "Its very hard even at skill levehane a challenge to y out skills 
I 1^ t I ^B ^* r (A&B Comp) "Manna from heaven (PersCompNews). One of 

the most exciting gomes we've ever played. Fly your Beeb X wing Fighter down the 3D Trench 
towards the Death Star style target, dodging the tie-fighters as they attack. 9 skill levels: 
sensational graphics: one of our best sellers. STIX OK. (Virgin) £7-95 

SPRING SUPER SAVERS! 



All of these programs have starred in our 


BBC catalogues 




THE HOBBIT ;M«iboum«: 


NOW £11.95 


SAVE £3.00 


DOGFIGHT Opui 


NOW £ 7.95 


SAVE £2.00 


MATHS INVADERS 


NOW f 5.95 


SAVE £2.00 


CYBERTRON MISSION (P.Pow.r) 


NOW £ 6.45 


SAVE £1.50 


ALIEN INTRUDER (Superior) 


NOW £ 5.95 


SAVE £2.00 


DANGER UXB (P.Pow«r) 


NOW£ 5.95 


SAVE £2.00 


FELIX IN THE FACTORY (P.Pow.,, 


NOW £ 5.95 


SAVE £2.00 


LUNAR RESCUE (Alligata) 


NOW£ 5.95 


SAVE £2.00 


MICROBE (Virgin) 


NOW £ 5.95 


SAVE £2.00 


ROAD RUNNER (Superior) 


NOW£ 5.95 


SAVE £2.00 



ONE PROGRAM FREE! 

If your order from this ad comes to £25 or more excluding p & p, tell us which of the above 10 
games you would like ■ absolutely free! (Outside UK, pleose odd appropriate p & p for your 
free game.) 
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To: SOFTWARE SUPERMARKET, 87 Howards Lum London SW15 6NU. 

II you do not want to cut this magazine, write your order out carefully on plam paper 
and quote this number AP3 
] own a 32K BBC computer I enclose a cheque/PO made payable to 

Software Supermarket OR Charge my V1SA/ACCESS/EUR0CARD/ 
MASTERCARD number r 



Signature 

Please wiite clearly If we can't read it. you wont get it 

Name 
Address 









■ 









Postcode 
Phone, if any. in case of query 
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Price 
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UK Add SSp only per order 


£0 55p 


EUROPE Add SSploi each program 


£ 


OUTSIDE EUROPE Add CI lor each program airmail 


£ 


OUTSIDE EUROPE ADD £1 TO TOTAL THTAT 
FOR REGISTERED MAIL 1 U l rtL 
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Acorn in business with 
the ZX-80 processor 



ACORN is bidding strongly 
for the small business market 
with the launch of its long- 
promised Z-80 second proces- 
sor. The £299 expansion unit 
upgrades the BBC micro into 
a full CP/M-based business 
system and is accompanied 
by a range of applications 
programs. 

"Our dual processor de- 
sign offers a speed and per- 
formance better than most 
conventional business sys- 
tems," claims Acorn market- 
ing manager Tom Hohenberg. 

The Z-80 second processor 
comprises a 'C chip running 
at 6MHz and 64K of RAM. 
It uses the BBC Tube inter- 
face to exchange data at high 
speed with the existing 6503 



Award for 
innovation 

ACORN COMPUTERS 

won the Queen's Award for 
Technological Achievement 
for its BBC micro. 

The Award pays special 
tribute to the advanced de- 
sign and commends Acorn 
for "the development of a 
microcomputer system with 
many innovative features.'' 
Chris Curry, managing direc- 
tor of Acorn Computers, 
comments: 

"We have aimed consis- 
tently to design computers 
which have set technological 
standards instead of merelv 
meeting a price. Our ap- 
proach is vindicated both by 
the Award and by the fact 
that two years since it was 
launched, the BBC micro is 
still the most advanced com- 
puter of its kind." 

The Award helps Acorn to 
refute criticisms from such as 
Sir Clive Sinclair, who has 
threatened to supplant the 
BBC micro in education with 
his own QL, and those who 
say that the design of the 
BBC is now out-moded. 

The BBC still vastly out- 
numbers other computers in 
schools. 



processor. The dual oper- 
ation has the Z-80 handling 
the application program 
while the host BBC micro 
concentrates on input/output, 
screen graphics and system 
routines. 

The free software supplied 
to the buyer with the expan- 
sion unit includes the 
GSX-80 graphics system 
compatible with all the 



CP/M family of operating 
systems; a disc-based word 
processor; a filing system and 
mailing facility; a spreadsheet 
program; and an integrated 
accounting system. 

Acorn says demand for the 
new system is high and that it 
is working towards the end of 
a large backlog of orders re- 
ceived before the processor 
was launched. 




Acorn managing director Chris Curry, centre, looks on while For- 
mula 3 driver David Hunt prepares to take P Bushby of March, 
Cambridgeshire, round the track at an Acorn-sponsored European 
Raceday at Silverstonc. The ride was part of Bushby's prize for 
winning a cartoon-captioning competition in the Daily Express. 



Micros at 
two major 
shows 

ROBOTICS, education and a 
users' clinic will be among 
the highlights of the second 
official Acorn User Exhibi- 
tion at London's Olympia 
from August 16-19. 

The exhibition will be 
open from 10am to 8pm each 
day. Tickets cost £3 for 
adults, £2 for children under 
16. There is £1 reduction for 
tickets ordered in advance 
from the organisers, Com- 
puter Marketplace (Exhibi- 
tions) Ltd, 20 Orange Street, 
London WC2H 7ED. 

High Technology and 
Computers in Education is 
the theme of another major 
exhibition, organised by the 
same company, to be held at 
London's Barbican Centre 
from January 24-26, 1985. 
Exhibits will include com- 
puter hardware and software, 
as well as robotics, lasers, vid- 
eo and teaching aids. Teach- 
ers, lecturers and local 
government officials from all 
over the country will be invit- 
ed to the show. 



First add-on for Electron 



ELECTRON owners can 
now run printers, joysticks 
and software cartridges from 
their machines with the Plus- 
1, one of a recent spate of 
add-ons from Acorn. 

Selling at £59.90, the Plus- 
1 adds a Centronics-compati- 
ble printer interface, a 
joystick analogue port and 
two slots for ROM cartridge 
software. 

Six new cartridges have al- 
ready been released by 
Acornsoft for the Electron 
Plus-1 system, including 
Snapper, Starship Com- 
mand, Hopper and the arti- 
ficial intelligence pro- 
gramming language Lisp. 
Cartridges cost £14.95, ex- 
cept for Lisp, which retails at 
£39.95. 

"We expect demand for 
the unit to be good and we 
are manufacturing it in large 
quantities," says an Acorn 



spokesman. Acorn has also 
announced an interface 
which links the BBC micro to 
the viewdata services run by 
British Telecom. 

The £113.85 adaptor links 
into the telephone network 
and allows users to access the 
business and consumer infor- 
mation published by Prestel 
and to use the Micronet 800 



tele-software service. They 
can also send and receive 
electronic mail via Telecom 
Gold. 

The adaptor is available by 
mail order only from Vector 
Marketing, London Road, 
Dennington Estate, Welling- 
borough, Northamptonshire 
NN8 2RL. 



Position 

1 

2 
3 
4 
5 
6 
7 
8 
9 
10 



BBC B TOP 

Tide 

Aviator 

Fortress 

Jet Power Jack 

Overdrive 

Ghouls 

Battle Tank 

JCB Digger 

Danger UXB 

Snooker 

The Mine 



TEN 

Company 

Acornsoft 
Pace Software 
Micro Power 
Superior Software 
Micro Power 
Superior Software 
Acornsoft 
Micro Power 
Acornsoft 
Program Power 



Figures supplied by W H Smith 
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Synthesizer 
for the BBC Computer 

• Totally unlimited vocabulary is now possible 
with the revolutionary "SWEET TALKER" Speech 
Synthesizer for the B.B.C. A or B Microcomputer, 
any series. 
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Pw;e includes VAT 

Postage and Packing 
Delivery normally 14 days 
Export orders at no extra cost 
' ::£fea/ef enquiries welcome 



• The CHEETAH "SWEET TALKER" simply plugs 
into speech socket IC99 within the computer. 

No soldering, no cutting of tracks, no headaches. 

• Based on an allophone system you can easily 
program any word, sentence or phrase and 
incorporate speech into your software games. 

• Fully tested and guaranteed. Complete with 
demonstration cassette and full instructions. 

Cheetah, products available from branches of 

im WHSMITH $ and Rumbelows 



John Menzies 
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Cheetah Marketing Ltd, 24 Ray Street, 
London EC1R3DJ. Tel: 01 833 4909. 
Telex:8954958. 
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HOTLINE last month inspired 
many of you to write about 
your Acorn machines. A num- 
ber of queries concerned the use of the 
operating system calls, the various ex- 
pansion ports of the BBC and options 
for the Electron. 

The operating system of both the 
BBC and the Electron is the most soph- 
isticated among home computers and 
many aids have been included to help 
the programmer. The subject which 
raises many queries, and also hints, is 
the use of *FX commands. FX calls are 
a means of enabling the user to control a 
range of effects in the computer without 
resorting to complicated assembler lan- 
guage routines. 

C Johnson of Leicester sent a tip for 
turning-oiT the sound of Acorn ma- 
chines, something which can be useful 
when the arcade games are keeping the 
rest of the family awake at night. Unfor- 
tunately the tip is slightly incorrect, 
due, I am sure, to a typing error. John- 
son suggests using *FX201,3 to disable 
the sound output. *FX201,3 disables 
the keyboard, meaning that the machine 
will not respond to any key on the 
keyboard except the break key. To re- 
enable the keyboard the break key has to 
be pressed. 

The command to turn off sound is 
*FX210,1. Any number greater than 
will turn off the sound. To re-enable 
sound, either press the break key or 
type *FX210,0. Therefore if you are 
running software which utilises the 
sound capabilities of the BBC and Elec- 
tron, typing the *FX command will 
stop any sound effects. That should 
work in most cases unless the software 
uses in the program initialisation 
*FX210,0 to enable sound. 

I have been asked about expansion 
options for the Electron. As you have 
probably seen advertised, there are now 
a few expansion units for the Elk and 
Acorn is releasing its first add-on, the 
Plus-1. The expansion box connects to 
the Electron via the edge connector on 
the rear of the machine. It contains a 
parallel printer port and a joystick inter- 
face. To complete the unit two ROM 



Expanding the 
possibilities of the 
BBC and Electron 

Jeremy Richards discusses your 
latest hints and queries 




cartridge sockets enable the user to buy 
software in cartridge form. 

The advantage of cartridge software 
is that by plugging-in a program is 
available in much less loading time but 
the cost is likely to be greater than that 
of tape software. 

While on the subject of expansion 
options, another source of mystery to 
some is the RS423 port at the back of 
the BBC. It seems not everyone is 
acquainted with it and what it does. 
The RS423 is a serial interface and can 
have a variety of uses. The most com- 
mon are controlling serial printers and 
communicating with other machines. 

In the case of the latter a prime 
example is accessing telecommunica- 
tions systems such as Prestel or British 
Telecom Gold. By connecting either an 
acoustic coupler or modem to the 
RS423 port, the BBC can then com- 
municate with mainframe computers, 
by a telephone line, to send and receive 
information. That leads neatly to the 
other form of communications device, 
the teletext adaptor. Those who already 
have a teletext receiver on a television 
set and would like to use it in conjunc- 
tion with a BBC cannot do so without 



connections are not available, although 
that is not to say that such devices may 
never be added. 

Users of the Electron or BBC often 
want to carry out a function or com- 
mand as quickly as possible. An excel- 
lent means of doing it is to re-define one 
of the user-definable keys. They are 
labelled ft), fl and so on and on the BBC 
the first 10 are shown as red keys on the 
keyboard. I find it useful when pro- 
gramming or typing-in other people's 
programs to have some function keys 
set up to carry out the same set of 
commands at the press of one key. To 
do that we use the *KEY command and 
program one gives an example of its 
use. 

Program 1. 

10 'KEY NEW: M 

10 *KEY 1 *EXEC" 

30 'KEY 2 RUN: M 

20 'KEY 3 OLD: M 

50 "KEY 4 LOAD" 

60 'KEY 5 CHAIN" 

70* KEY 6 LIST: M 

80 'CAT: M 

90 'KEY 8 'WORD: M 
100 'KEY 9 'BASIC: M 
1 10 'KEY 10 OLD: M LIST: M 

In a line where you wish a RETURN 
to be issued, i.e., where you have typed 



'The advantage is that a program 
is available in much less time' 



the adaptor for the computer. What 
would be the advantage of buying a 
teletext adaptor? If you already own a 
teletext set, you would be able to receive 
the free software transmitted by the 
BBC on pages 700 onwards. 

The teletext system uses another of 
the external ports of the BBC, the 
1MHz bus. It is similar in nature to the 
user port except it is far more versatile 
for more complex hardware add-ons. 

Why can those devices not be added 
on to the Electron? In the case of the 
Elk, Mode 7, which is the teletext 
display screen, is missing. Therefore 
there is no correct display available for 
teletext pages. Second, the peripheral 



*BASIC and wish the command to be 
carried out, a control code has to be 
issued, in this case control-M, which 
would be the same as pressing the 
RETURN key. To do that we use the 
character above the 7' key which, if you 
are using Mode 7, shows as two vertical 
lines, but on the key or in other modes 
as a single broken vertical bar. 

More than one function can be as- 
signed to a key and in that way a set of 
commands can be carried out in one 
attempt. It is also possible to use a colon 
(:) to separate statements as in Basic 
multi-statement lines, but bear in mind 
that it will not be understood as a multi- 

Continued on page 8 
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statement line, as the command is being 
carried out by the operating system and 
not Basic. Therefore if using operating 
system commands like *KEY, it is best 
to have them on their own on a line, or 
as the last statement on a Basic line, as 
control is passed to the operating sys- 
tem for the rest of a line once an asterisk 
is encountered. 

Let us look at a routine which can be 
incorporated in your programs. This 
utility is meant for disc users; it would 
work for tape as well, though it would 
be very slow. The routine is to provide 
a menu selection of your programs and 
permits you to press just one key to load 
and run a program. Type-in program 
two and save it to disc with the title 
1MENU. 

Program 2. 

10CI.S 

20 PRINT TAB (10,0);"GAMES DISC 1" 

30 PRINT TAB (0,4);"1...PROGA" 

40 PRINT TAB (0,6);"2...FROGGER" 

50 PRINT TAB (0,8);"3... BINGO" 

60 PRINT TAB (0,14);"Emer number of 

choice" 
70 A$ = GETS 
80 A = VAL(A$) 
90 IF A<1 OR A>3 THEN 70 

100 ON A GOTO 110,120,130 

HOCHAIN'TROGA" 

120 *RUN FROGGER 

130CHAIN"BINGO" 
Once saved to disc, use *BUILD to 

make a !BOOT file, typing-in at line 1 

CHAIN"!MENU" and then press 



RETURN. At line 2 press the escape 
key and a file !BOOT should have been 
created. Then type *OPT 4,3 to set the 
*EXEC option. The menu program 
will then be run every time Shift-Break 
is pressed— that is done by pressing and 
holding the Shift key while pressing and 
releasing the Break key. 

To explain how to customise the 

program to run programs on your disc 

mrrr 




let us look at the listing in detail. Line 
10 clears the screen. You might like to 
replace it with a Mode statement and 
include colour in the titles. I favour 
Mode 7 and make use of the double- 
height characters using 'CHR$141\ 
Line 20 is the title of the disc and lines 
30 to 50 show the names of the pro- 
grams on the disc. The lines shown are 
only examples and you must enter as 
many as are appropriate for the number 



of programs contained on your disc. 
Line 60 tells the user to enter his 
choice. 

Lines 70-100 are the real heart of the 
program and are responsible for reading 
the user's input and carrying it out if 
correct. The key pressed by the user is 
read in at line 70 and is converted into a 
numeric variable at line 80. Line 90 is 
set to the minimum and maximum 
number of programs to be chosen and if 
the number or key pressed is outside the 
number of programs displayed, the user 
is returned to line 70 until an appropri- 
ate key is pressed. 

The 'ON' statement in line 100 then 
sends the program to the correct line for 
execution. Therefore if the number 
pressed was T the program goes to line 
110, where a command to load that 
program is carried out; if l 2\ then to 
line 120 and so on. 

When adding new programs to your 
menu, besides altering the screen dis- 
play, lines 90 and 100 should be altered 
as well to take account of a new number 
of programs. Finally the correct com- 
mand for loading and running must be 
used in the final section. 

The program is simple to use and 
makes it easy to add new programs to 
the list. It is the fastest program I can 
show but there are many other ways of 
creating menus and if you have a better 
routine, please send it to us. 




SOFTWARE 



machine code games for BBC *B\ ELECTRON, SPECTRUM 16/48K 



A MAZE IN SPACE 



DOGFIGHT 




Use Joysticks or Key- 
boards to navigate your 
Starship to the planet 
surface and then into 
the maze below. Having 
been told in which 
section of the maze 
your target is hidden, 
your objective is to 
seek out and destroy it 
to complete a mission. 
Beware of the numerous 
alien defence systems. Two levels ofdifficultyl Horizontal 
and diagonal scrolling! 
How many missions can you complete? 



Available now 



BBC'B' 



Cassette 



£9.95 
Special Offer 



Disc 



£11.95 



Dogfight and A Maze In Space together 
Cassette - £14.95 Disc - £16.95 



Please state 40 or 80 
Track if disc 



Still undoubledly the 
most exciting 
2-player game available. 
The objective is to fire 
sufficient shots into 








your enemy aircraft to 
force it to explode. 
Eight levels of difficulty. 
Sun, moving cloud, 
lightning, ground all 
provide real combat 








environment. 
Can you beat your 
friends? 














Available now 


Cassette 


Disc 




BBC'B' 


£9.95 


£11.95 




Electron 


£7.95 


n/a 




Spectrum 


£5.50 


n/a 





All prices include 
VAT and postage 



SLOGGER SOFTWARE 

215 BEACON ROAD 
CHATHAM, KENT 

Tel: (0634) 811634 
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Beginners' path 

through the 
literary jungle 

Bruce Smith takes a critical look 
at some recent publications 



WITHOUT doubt the publish- 
ing industry was given a big 
lift when the home computer 
and, in particular, the Acorn micros, 
made their appearances. A walk into 
any bookshop illustrates the point with 
row after row of books on your favourite 
micro. Choosing a book to supplement 
the User Guide which can look daunt- 
ing to many first-time users can be a 
difficult task. To help you wade 
through this literary jungle I have been 
burning the midnight oil reading a se- 
lection of books available for the BBC 
and Electron on the subject of program- 
ming. 

The name R A Penfold will be famil- 
iar to readers of the electronic comput- 
ing press. Penfold has teamed up with J 
W Penfold to produce two introductory 
pocket books for the BBC and Electron. 
An Introduction to Programming the 
BBC Model B Micro is a well-written 
introduction. A shortcoming is that it 
assumes you have already mastered 
your keyboard, as no details on obtain- 
ing shifted characters or using the func- 
tion keys are given. Another immediate 
minus is the omission of an index, 
though the well thought-out layout of 



formatting and getting information into 
the BBC while a program is running 
using the GET, INPUT and INKEY 
commands. Procedures and functions, 
facilities which set the Acorn machines 
apart from their contemporaries, are 
explained with clear, pithy examples in 
chapter four and the reader is left in no 
doubt as to their usefulness. Sound, 
graphics and sprites are covered in the 
ensuing chapters, along with an examin- 
ation of the binary and hexadecimal 
numbering systems; again, example 
programs point the way. 

The Penfolds' bent for interfacing 
makes an appearance in chapter 10. 
Although interesting reading, I feel it is 
a little out of the depth of the introduc- 
tory reader. Curiously the last chapter is 
dedicated to the Teletext Mode 7. I 
would have thought that should have 
occurred somewhat earlier as it is un- 
doubtedly the operating mode the 
reader will be using most. Overall a 
good book and at £1.95 a very worth- 
while buy. 

An Introduction to Programming the 
Acorn Electron, also by Penfold and 
Penfold, not surprisingly follows the 
same track as the former title. In fact, 



'A shortcoming is that it assumes you 
have already mastered your keyboard' 



each chapter should enable first-time 
users find their way around quickly. 

Unusually the book starts with a 
description of variables and arrays. 
Many of the more erudite books tend to 
leave that aspect of programming to 
several chapters later, even though they 
have been using both in demonstration 
programs from page one. 

After all, one of the main uses of a 
computer in the home is to store infor- 
mation, whether it be household ac- 
counts or the carry-over to the next 
adventure game session. The chapter 
explains the differences between vari- 
able types and the demonstration pro- 
grams are short and concise. 

Chapters two and three discuss print 



only the last two chapters differ. Chap- 
ter 10 on interfacing provides useful 
details on adding 8-bit input and output 
ports to the Electron, though once again 
it is an odd inclusion in an introductory 

book. Due to the lack of a teletext 
display on the Electron, chapter 11 
details the handling of data files, giving 
a telephone directory program as an 
example. 

All my comments on the BBC ver- 
sion hold true and again at £1.95 it is an 
absolute snip. 

At the other end of the price range for 
introductory programming books are 
two Dr Watson series volumes by Alan 
Marshfield titled BBC Basic Program- 
ming Course and BBC Advanced Basic 



Course. Both plastic-cased volumes have 
an accompanying cassette containing 
the main programs from the book. 

My first impression was that they are 
somewhat congested; that is probably 
because they are computer-set, which 
produces a heavy compact type. Also, 
many of the illustrations are of the 
hand-drawn type, which looks a little 
unprofessional and cheap, though at 
£14.95 neither volume can be consid- 
ered -inexpensive. 

BBC Basic Programming Course 
starts with an overview of the keyboard 
and gets the user generally playing 
around typing-in silly little commands. 
Not that I am decrying that; on the 
contrary, I think it is a very useful 
exercise and gets the reader used to the 
keyboard and over initial computer 
nerves. The final part of the chapter has 
the reader using the cassette to save and 
load items, an aspect often overlooked 
by other introductory books. 

Chapters two and three deal with 
number and string handling in a rather 
disjointed manner, with perhaps too 
much mathematical bias for an intro- 
ductory book. Surely also the 
REPEAT . . . UNTIL loop is worth 
more than a page and a half of coverage. 

The game of Hangman is used to 
provide the basis of introducing DATA, 
READ, graphics and colour in chapter 
four— a pleasant approach all drawn 
together at the end by a suitable pro- 
gram. Chapter five takes a similar tack, 
using a bat 'n ball version of squash to 
introduce several other graphical fea- 
tures of the BBC plus an insight into 
animation. 

The final chapter is titled Diamonds 
of Time and again uses various games 
programs to examine other aspects such 
as FN and TIME. That chapter is 
somewhat disjointed and left me won- 
dering what it was all about. Thirteen 
appendices are tacked on to the end of 
the text giving the usual details of AS- 
CII codes, keywords and *FX calls, 
though the latter are scarcely mentioned 
in the text. 

The accompanying cassette contains 

Continued on page 10 
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Continued from page 9 
eight of the longer program listings. 
Although it is pleasant to load rather 
than type them in, I wonder how many 
people would buy the cassette if it were 
sold separately. 

The book is really a mixed bunch of 
pages offering good and bad. I would 
certainly advise any prospective buyers 
to give it a good perusal in the shop 
before purchase. 

The BBC Advanced Basic Course fol- 
lows from the previous volume, so 
much so that it starts with chapter 
seven. That chapter details the imple- 
mentation of bar charts and integer 
numbers. It also introduces the ASC 
and CHR* functions, elementary items 
which should have been dealt with in 
the first volume. 

The games approach is taken up 
again in the next chapter with the devel- 
opment of a space game, although being 
an advocate of structured programming 
I am always wary of programs which 
contain even one GOTO statement, 
particularly within procedures. Chapter 
nine provides a useful entry to the 
world of computer sound and at long 
last introduces the excellent function 
keys. Once again the final chapter is a 
mish-mash of items based on data hand- 
ling and chunky graphics. Finally, 13 
appendices— yes, the same ones— end 




writing 



in 

programs 
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the book. The accompanying cassette 
holds 15 programs from the book. 

I would not recommend the book to 
someone wishing to learn advanced Ba- 
sic programming techniques. There are 
numerous omissions, no details on sort- 
ing techniques, and the layout does not 
encourage bed-time reading. 

Clive Prigmore's Beginner's Basic is a 
general book on programming not writ- 
ten specifically for the BBC or Electron 
but written with them and the other 
popular home micros in mind. Even so, 
this large A4-sized spiral-bound book 
deserves mention. It deals with all the 
main introductory areas simply, clearly 



and with short programming examples. 
Chapter topics include writing your 
own programs, decisions, strings, loops 
and lists, sorting, searching, and files 

and menus. 

One of the biggest points in the 
book's favour is its excellent produc- 
tion. It really is a pleasure to look at and 
the lucid writing puts across all the 
author's points. 

There are inevitable weaknesses in a 
book of this kind. For example, the 
book details the RANDOMIZE func- 
tion which does not exist in BBC Basic. 
Many of the specialised BBC keywords 
are also missing— there is no mention of 
PROCs. At £9.95 it is a worthwhile 
investment, though it should be supple- 
mented with a BBC or Electron-specific 
book. 



An Introduction to Programming the BBC 
Model B Micro, by R A & J W Penfold, 
1 34 pages, £1 .95, published by Bernard 
Babani. 

An Introduction to Programming the 
Acorn Electron, by R A & J W Penfold, 
134 pages, £1.95, published by Bernard 
Babani. 

BBC Basic Programming Course, by Alan 
Marshfield, £14.95 inc. cassette, pub- 
lished by Honeyfold Software Ltd. 
BBC Advanced Basic Course, by Alan 
Marshfield, £14.95 inc. cassette, pub- 
lished by Honeyfold Software Ltd. 
Beginners' Basic, by Clive Prigmore, 216 
pages, £9.95, published by Windward. 



BBC/ELECTRON 
PROFESSIONAL SOFTWARE 

Our educational software is used in thousands of schools and homes throughout Great Britain. 

EDUCATIONAL 1 BBC/ELECTRON Tape £8.00 Disc £10.00 

Hours of fun and learning for children aged five to nine years. Animated graphics will encourage children lo enjoy counting, maths, spelling, 
and telling the time. The tape includes six programs: MATH1 . MATH2, CUBECOUNT. SHAPES. SPELL and CLOCK. 
... An excellent mixture of games . . . Personal Software - Autumn 1 983 

EDUCATIONAL 2 BBC/ELECTRON Tape £8.00 Disc £10.00 

Although similar to Educational 1 this tape is more advanced and aimed at seven to 12 year olds. The tape includes MATH1. MATH2. 
AREA. MEMORY, CUBECOUNT and SPELL. 

FUN WITH NUMBERS BBC ELECTRON Tape £8 00 Disc £10 00 

These programs will teach and test basic counting, addition and subtraction to tour to seven year olds. The tape includes COUNTING. 
ADDING and an arcade type game to exercise addition and subtraction. With sound and visual effects. 

FUN WITH WORDS BBC/ELECTRON Tape £8.00 Disc £10.00 

Start your fun with alphabet puzzle, continue your play with VOWELS, learn the difference between THERE and THEIR, have games with 
SUFFIXES and reward yourself with a game of HANGMAN 
. . . Very good indeed' . . . A&B Computing- Jan/Feb 1984. 

JIGSAW AND SLIDING PUZZLES BBC ELECTRON Tape £7.95 Disc £9 95 

Therearetwojigsawandfourslidingpuzzlesona3x3and4x4grid Each program starts off at an easy level to ensure initial success 
but gradually becomes harder. It helpschildren to develop spatial imagination and in solving problems. The tape includes: OBLONG, 
JIGSAW, HOUSE. NUMBERS, CLOWN and LETTERS! 

GAMES & UTILITIES 

GAMES OF LOGIC BBC Tape £4 95 Disc £6.95 

For children and adults alike. The tape includes AUCTION, FLIP. REVERSE. TELEPATHY and HEXA 15. 
. . . This package is good value' . . . Acorn User - Nov 1 983 

SUPERLIFE BBOELECTRON 

Fast (machine code) version of a popular GAME OF LIFE' in a large universe 

KATAKOMBS BBC 

The ultimate adventure game 

UTILITIES BBC/ELECTRON Tape £5.95 Disc £7.95 

An assortment of useful procedures and functions which can save you hours/days of programming effort: date conversion, input and 
validation routine, graphic routines, sort, search and many more 

* * • SPECIAL OFFER * * * Buy three titles and deduct £4.00 

Add 50p p&p per order. Please state BBC or Electron. Cheque/PO. 

Golem Ltd, Dept API, 77 Qualitas, Bracknell, Berks RG12 4QG. Tel: 0344 50720. 



Tape £4.95 Disc £6.95 
Tape £5 95 Disc £7.95 
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Killer ape retains 
most of its power 



KILLER GORILLA from 
Program Power — or Micro- 
Power as the company is now 
called — has long figured 
prominently in the popular- 
ity charts for BBC games. 
Now a new version has been 
produced for the Electron 
and the transition has been 
achieved very smoothly. 

In the best Donkey Kong 
tradition, the aim is to ma- 
noeuvre the hero along a se- 
ries of platforms and up 
ladders towards a helpless 
maiden held captive at the 
top by a fearsome primate. In 
defence of his prize, the goril- 
la hurls down barrels towards 
the rescuer who can, for a 
short time, smash them with 
an axe he has had the good 




fortune to pluck from thin 
air; when the axe vanishes, he 
is reduced to leaping over the 
barrels as best he can. 

Practice will reveal tactical 
ways in which a players's 
score can be improved. Try- 
ing to leap over a series of 
barrels rolling close together 
is not a good idea and stand- 
ing below the edge of a plat- 



Competent invaders 



THE IDEA that no software 
library is complete without 
some version of Space Invad- 
ers no doubt lies behind the 
Micro Power decision to pro- 
duce Electron Invaders. 
Despite the lack of original- 
ity, it must be said that it is a 
competent version and any- 
one wanting to play space 
invaders on the Electron 
might just as well buy this 
game as any other. 

In the classic manner, it 
features a variety of alien 
hordes, each of which earns 
the player a different number 
of points when zapped. The 
player moves a laser back and 
forth along the baseline and 
can shelter behind defensive 
bunkers; beware of exploding 
bombs which produce a spec- 
tacular and potentially dan- 
gerous shower of shrapnel. 



Clearing one screen leads 
to another in which the in- 
vaders start their offensive 
lower down the screen. One 
or two people can play and 
compete for high scores and 
the game includes a useful 
silence facility for those who 
tire of the piercing sound. 

Electron Invaders is avail- 
able from Micro Power, 8-8a 

Regent Street, Chapel Aller- 

ton, Leeds LS7 4PE and 

costs £7.95. 




form may mean being 
squashed flat from above. 
Completing one screen leads 
to another more difficult one, 
with useful objects to be 
picked up along the way and 
large gaps in the platforms 
creating additional dangers. 
A touching scene rewards 
you if you whisk the heroine 
from the gorilla's clutches. 

Within the limitations im- 
posed by the slightly less 
sophisticated graphics and 
sound of the Electron, the 
game still has all the attrac- 
tions which have endeared it 
to BBC owners. A catchy 
tune, which mercifully can be 
silenced at the touch of a key> 
accompanies the action and 
the excellent graphics have 
plenty of humorous detail, in- 
cluding the way in which the 
hero spins on the spot and 
finally keels over with his 
legs in the air whenever he 
moves into the path of a bar- 
rel. 

Killer Gorilla should re- 
ceive a warm welcome from 
Electron owners who will be 
well served if more software 
for the machine reaches this 
high standard. The game is 
produced by Micro Power, 8- 
8a Regent Street, Chapel Al- 
lerton, Leeds LS7 4PE. It 
costs £7.95. 



Return of 
the insect 
train 

YET ANOTHER Electron 
game which goes back to ear- 
ly arcade classics for its roots 
is Centipede from Superior 
Software. The object is to 
prevent the snake-like centi- 
bug from reaching the bot- 
tom of the screen by firing at 
it from a laser base. Various 
insects which detach them- 
selves from the train can be 
zapped for different scores ac- 
cording to their type. 

The scenario will no doubt 
seem familiar to old hands 
but for those not in search of 
originality Centipede is en- 
tertaining enough, with an 
attractive screen display and 
a choice of skill levels to add 
extra challenge. A cassette in- 
sert with no explanations is 
uninviting but instructions 
are provided on-screen. 

Centipede is produced by 
Superior Software, Regent 
House, Skinner Lane, Leeds 
LS7 1AX and costs £7.95. 




mm 



Quick on the thaw 



PENGUINS attempting to 
shunt ice blocks into place 
seem to be a popular theme of 
a recent batch of micro 
games. Pengwyn, produced 
on a two-sided tape for the 
BBC and the Electron, has a 
number of by now familiar 
features but has managed to 
combine them in a reasonably 
lively and entertaining way. 

The object is to manoeuvre 
randomly placed flashing 
squares into a straight line, 
either by melting the ice 
blocks surrounding them or 
by pushing them into an 
empty space if one is avail- 
able. Three penguins repre- 



sent the player's three lives 
and their task is complicated 
by the monsters — fluffy and 
beaming but monsters none- 
theless — which materialise 
from the ice blocks and pur- 
sue the hard-pressed birds. 
They can defend themselves 
either by running away or by 
pushing an ice block into the 
monster's path. 

Besides skill in moving the 
penguin quickly round the 
screen, the game requires 
quick decisions on the best 
course of action when con- 
fronted with an ice block or a 
monster. To make things 
even more exciting, the play- 



er's score is calculated on the 
basis of the time taken to 
organise a straight line; the 
number of monsters also in- 
creases steadily. 

It is a pity that Postern has 
not bothered to mark the tape 
on each side with the com- 
puter for which it is intended 
and that the screen instruc- 
tions are lacking in any punc- 
tuation, but in other respects 
the company has produced an 
above-average game. 

Postern is at PO Box 2, 
Andoversford, Cheltenham, 
Glos GL54 5SW and the 
game costs £6.95. 

More reviews on page 12. 
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Effective 

two-fold 

attack 



EXCELLENT line graphics 
add conviction to 3-D Tank- 
zone for the BBC B. 

As supreme commander of 
a fortified hilltop command 
post your job is to scan the 
surrounding terrain and the 
horizon for enemy tanks and 
aircraft. To defend yourself 
against them, you have an 
anti-aircraft cannon and an 
anti-tank missile launcher; 
you can choose to play the 
game with either type of 
weapon or a combination of 
both. You fire at enemy air- 
craft by lining them up in 
your sights and you aim at 
tanks by moving indicators at 
the top and sides of the 
screen. 

Although basically a sim- 
ple zapping game, 3-D Tank- 
zone has been carefully 
produced and provides some 
fine effects. The rotation of 
the command post and the 
movement of the tanks in par- 
ticular are realistically con- 
veyed. 

The only real criticism of 
the game is that the action is 
a trifle slow. 

3-D Tankzone is produced 
by Dynabyte Software, 31 
Topcliffe Mews, Wide Lane, 
Morley, Leeds LS27 8UL 
and costs £8.95. 



F 



• it 



tball game is a 



resounding win 



FOOTBALL MANAGER 

from Addictive Software 
should send soccer fans 'over 
the moon' but the game 
scores highly with non-enthu- 
siasts, too. 

As manager of your favour- 
ite team, it is your job to 
decide each week who will 
play in the next match on the 
fixture list, whether to buy or 
sell players, and whether to 
borrow money or repay a loan 
according to the club's finan- 
cial fortunes. 




levels ranging from beginner 
to genius. If you start as a 
beginner and do well, your 
rating is adjusted automati- 
cally at the end of the season. 
The most crucial decision af- 
fecting your team's perfor- 
mance, however, involves the 
selection of players and it is 
based on the attributes of the 
two opposing teams. Their 
energy, morale, defence and 
attacking strength are valued 
on a scale of points, and play- 
ers are chosen according to 
positional skills and energy 
they can bring to the team. 
True to life, players' energy 
is depleted after a game and 
restored after a rest. 



Having settled all the de- 
tails, you can then sit back 
and watch the game — a 
short, animated sequence 
showing the 'highlights'. 
Scores, injuries and new 
league placings are all dis- 
played at the end. 

The combination of graph- 
ic action and informed de- 
cision-making distinguishes 
Football Manager from 
many other strategy games 
and the scope and careful pre- 
sentation of the program 
make it entertaining and ab- 
sorbing. It is produced by 
Addictive Games, 7A Rich- 
mond Hill, Bournemouth H2 
6HE and costs £7.95. 



Whichever team you 
choose, you start in division 
four. By the end of 22 League 
matches, you hope to be pro- 
moted to division one and 
possibly win the FA Cup as 
well. If the team closest to 
your heart is not available, 
the game allows you to custo- 
mise the data file to include 
your own team and players. 

Among the many other op- 
tions offered are seven skill 



Submerged twist 



THE SIMPLE arcade theme 
of shooting the enemy before 
they shoot you is given a 
slight twist by Sea Lord for 
the BBC B. Your minisub- 
marine is cruising through a 
rocky seascape when the local 
sea lord decides that you are 
trespassing and sends a fleet 
of scout ships to destroy you. 
Using left and right rota- 
tion keys to turn and face 
your pursuers, you must try 
to blast them out of the way 
before they collide with you 
and deprive you of one of 



Trap ensnares player 



FRENZY for the BBC B 

shows that sophisticated 
graphics are not the prime 
ingredient of an enjoyable 
game, although a little more 
effort on the pictorial front 
would certainly not have 
done any harm. 

A small square represents 
the robot craft with which the 
player must try to trap a train 
of dots standing in for deadly 
atomic particles running free 
in a scientific research centre. 
As the Leptons cross the 
screen and bounce off the 
walls, you attempt gradually 
to enclose areas of the screen 
within your ion trail, causing 



them to change colour. 

When Leptons are trapped 
in a coloured area or when 
more than 95 percent of the 
screen has been filled in they 
are immobilised, but if they 
crash into the robot craft or 
its ion trail before you have 

returned to base, you lose 

your life and possibly the 

game. 

If you succeed on one 

screen, life becomes more 

complicated as Chasers move 

along the outer borders, 

threatening to collide with 

the robot craft. 

Although the concept and 
graphics are extremely sim- 



ple, Frenzy is a surprisingly 
addictive game in which tim- 
ing and a shrewd eye for an- 
gles are needed for success. 
Interest is added not only by 
the increasing difficulty of 
the game but by the fact that 
scoring is affected by whether 
you choose to drive your craft 
slowly, earning a higher score 
but more dangerous, or fast, 
and by the tactical decisions 
you can make to improve 
your chances. 

Frenzy is one of a new 
batch of releases from Micro 
Power, Northwood House, 
North Street, Leeds LS7 
2AA and costs £7.95. 



your three lives. Having 
eliminated the scouts, you are 
then harrassed by submarines 
and yet more deadly vessels if 
you manage to get rid of 
those. A score of 1,500 points 
earns you an extra mini-sub 
with which to continue your 
battle. 

The graphics are far from 
sophisticated, with wavy blue 
lines and a few cubes repre- 
senting the sea and rocks, and 
the action cannot be de- 
scribed as hair-raising, but 
the movement of the subma- 
rine and the firing action lift 
the game somewhat out of the 
ordinary. The novelty can 
provide even jaded players 
with some entertainment. 

Sea Lord is produced by 
Bug-Byte, Mulberry House, 
Canning Place, Liverpool LI 
8JB. It costs £7.50. 
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Just a question 
of general 
knowledge 




THE VALUE of general 
knowledge quizzes as an edu- 
cational tool may be debat- 
able but Kosmos Software 
has devised an entertaining 
and thoughtfully designed 
learning game in its Answer 
Back Senior Quiz. 

Aimed at children aged 12 
and over, the tape provides a 
series of 15 quizzes on sub- 
jects ranging from astronomy 
and music to sport, literature 
and mythology. They are 
combined with amusing 
graphics and a simple zap- 
ping game. Questions are 



flashed on to the screen by a 
laser-wielding robot and 
whenever they are answered 
correctly the student is of- 
fered the option of firing at 
an alien craft. 

Intended as a spur to en- 
courage children to supply 
the correct answers, the zap- 
ping exercise probably acts 
more as a distraction, draw- 
ing the attention from the 
answer displayed on the 
screen. In other respects, 
however, the quiz is effective 
in helping to memorise an- 
swers and provides an excel- 



Scaling challenge 



IF YOU LIKE your arcade 
games to present a real chal- 
lenge, you should enjoy Cas- 
tle Assault for the BBC B. 
The object is to scale the 
walls of a castle, jumping 
over monsters, climbing lad- 
ders and leaping on to mov- 
ing platforms to reach a bag 
of gold at the top. Bonus 
points are gained by gather- 
ing the fruit to be found at 
either end of each level. 

In spite of a generous pro- 
vision of lives— you start with 
[ivQ men— you will probably 
not find it an easy mission 
unless you have had plenty of 
practice at the keyboard, 
jumping over the monsters 
and on and off the platforms 
requires accurate timing and 
on the first screen a flying 
duck makes life even more 
hazardous as you reach the 
upper levels of the castle. 

Castle Assault has many 
elements, from ladders and 
platforms to flying ducks, 
which are now familiar fea- 
tures of many computer 
games but it combines them 
in a lively and colourful way. 
Excellent graphics and fast 
action should keep you play- 
ing. 

Castle Assault is produced 



by MRM Software, 17 Cross 
Coates Road, Grimsby, 
South Humberside and costs 
£5.70. 




lent grounding for would-be 
Mastermind contenders, if 
nothing else. 

After the introductory sec- 
tion has appeared on the 
screen, each individual quiz 
must be loaded separately, a 
laborious process if a topic 
which is low on the list is 
requested. A quiz consists of 
50 questions and at the start 
you are offered a choice of 
how many you want to an- 
swer, whether you want them 
in a multiple choice, yes/no 
or fill-in-the-missing-letters 
format, and whether you 
want to be timed. Such 
choices make it possible to 
repeat each quiz more than 
once, varying the format. 

More valuable still, the au- 
thors have allowed for teach- 
ers or parents to modify 
existing quizzes or create new 
ones of their own, so that the 
quiz can also be used to drill 
pupils on what has already 
been taught in class. 

Answer Back Senior Quiz 
is produced by Kosmos Soft- 
ware, 1 Pilgrims Close, Harl- 
ington, Dunstable, Beds LU5 
6LX and costs £10.95. 



Screwball 
bounces 
into favour 

SCREWBALL for the BBC 
B belongs to a group of games 
which are popular at present 
and all trace their origins to 
Atari's Q*bert. The lack of 
originality can be forgiven 
because MRM Software has 
managed to make this a par- 
ticularly entertaining version. 

Assuming the guise of 
what looks like an animated 
corkscrew, you have 60 sec- 
onds to change the colour of a 
diagonal grid of squares by 
jumping on each one in turn. 
As you dash about the screen 
you are pursued by black 
bugs which are liable to mat- 
erialise on top of you and 
eliminate one of your lives. 
You can, however, defend 
yourself against them by 
spinning quickly on the spot 
and drilling a hole through 
which, with a little luck, the 
bugs will fall, earning you a 
bonus score. 

Sensible placing of the 
control keys is one asset of 
the game. Amusing and real- 
istic 3-D graphics and fast 
action should also help to 
keep you playing Screwball 
for some time. Available from 
MRM Software, 17 Cross 
Coates Road, Grimsby, 
South Humberside, Screw- 
ball is good value at £5.70. 



Hangman is back 



CHALKSOFT claims that 
Word Skill, released re- 
cently as a 40-track disc for 
the BBC B, improves spell- 
ing and deductive skills, 
enriches the vocabulary, en- 
courages discussion, and 
more besides. Be that as it 
may, the program is certainly 
a well-produced version of an 
old favourite commonly 
known as Hangman. 

The program is designed 
for use at home or in the 
classroom and provides a 
number of options to suit a 
variety of situations and 
pupil skill levels. The game 
can be played on the basis of 
familiar phrases, or of ran- 



dom sentences thrown up by 
the computer out of its mem- 
ory store. Pupils can play 
against each other or against 
the computer, they can make 
up their own phrases for 
others to guess, they can be 
timed or not timed. 

The game also includes a 
range of facilities for the 
benefit of the teacher who 
can edit and save sets of 
phrases or, most important, 
alter the sound level of the 
game or print-out class 
scores. The teacher can also 

retain mastery by using a 
password to prevent pupils 
altering the program settings 
or breaking-out of a game to 



return to the main menu, al- 
though that no doubt invalu- 
able arrangement can make 
the game a little cumbersome 
at times. 

Scores are calculated ac- 
cording to the percentage of 
correct letters placed, with 
points deducted for any in- 
correct letters attempted, and 
players completing phrases in 
the required time are reward- 
ed with a repertoire of jolly 
tunes. 

A thorough and carefully 
planned treatment of a simple 
concept, Wordskill is avail- 
able from Chalksoft, 37 Wil- 
lowslea Road, Worcester 
WR3 7QP and costs £12.25. 
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OFTWARE from Acornsoft has 
always tended to back the image of 
the BBC micro as a serious ma- 
chine on which a little light relief is 
allowed occasionally in the shape of 
games displaying the graphics and 
sound capabilities of the machine. The 
company has stepped up production 
recently with a number of releases 
which only reinforce that tradition. 

Most successful of the new Acornsoft 
games so far appears to have been Avi- 
ator, whose author Geoffrey Cram- 
mond we interviewed in the June/July 
issue. A feat of complex programming, 
the game puts the player in the cockpit 
of a Spitfire, reproducing faithfully ev- 
ery aspect of the performance of the 
World War Two aircraft. The cassette 
is accompanied by a detailed instruction 
booklet and a map, and the chair-bound 
pilot can practise take-oiT, landing and 
even flying through the streets of 
Acornville or looping the loop. 

Although it has only simple black- 
and-white line graphics, Aviator is im- 
pressively realistic and provides a 
challenge which is at the same time 
entertaining and educational. The com- 
bination has taken Aviator to the top of 
the best-selling charts and kept it there 
for some weeks. 

Another strong contender, creeping 
slowly up the charts behind Aviator, is 
JCB Digger, sponsored by J C Barn- 
ford Excavators as a promotional exer- 
cise. The game features that familiar 
accessory of any building site, a JCB 



Games taken 
seriously 

Nicole Segre finds recent 

releases from Acornsoft are 

unoriginal but reliable 



driver who is flung from his cabin 
whenever the Meanies pounce. 

Successive waves of increasingly dan- 
gerous Meanies are designed to enliven 
the action of JCB Digger. However, the 
action of JCB Digger fails to exert a 
strong grip, especially if you are playing 
with keyboard controls rather than a 
joystick. 

Besides using the movement keys to 
drive the excavator, digging a hole re- 
quires pressing the SHIFT key three 
times, while filling a hole to trap a 
Meanie is achieved by pressing the 
space bar and driving back over the 
hole, both awkward manoeuvres to per- 
form in a hurry. In contrast, the alterna- 
tive method of scoring, consisting of 
shovelling away the landscape, is a little 
too leisurely to provide real excitement. 

Less enterprising on the graphics 
front but more fun to play is Car- 
ousel, in which a fairly familiar shoot- 



The action thus ranges from 

fairly easy at the start to 
positively frantic at the end' 



3CX excavator loader, pitted in a battle 
of wits against a horde of Meanies. 

The stuggle takes place on an island 
where the Meanies are trying to capture 
the digger, which in turn is attempting 
either to scoop up the Meanies and 
push them into the sea or to dig holes 
into which they can fall. Meanwhile, 
clearing the forests and undergrowth 
which cover the island provides an ad- 
ditional activity and earns the player 
extra points. 

The great asset of JCB Digger is its 
colourful and lively graphics. As you 
drive the digger round the island, the 
screen scrolls in every direction to re- 
veal more features of the island geogra- 
phy and its fringe of white-capped, 
moving waves. Although the beaming, 
blob-like Meanies are scarcely terrifying 
to look at, the digger is an amusingly 
accurate portrayal, complete with a 



ing stall theme has been refined into a 
lively and addictive game. 

A jolly fairground tune accompanies 
the action, which consists of shooting at 
revolving pipes and a conveyor belt of 
owls, ducks and rabbits. To keep you on 
your toes, you are harassed occasionally 
by a duck which swoops to steal bullets 
from your remaining store, displayed at 
the bottom of the screen. 

On the positive side, you can improve 
your score by aiming at a series of 
letters interspersed among the animals. 
If you manage to shoot them in the 
correct order to spell 'bonus' you gain 
extra points for each letter hit. You can 
also replenish your stock of bullets by 
shooting at boxes at the top corners of 
the screen, provided they are displaying 
a positive number. 

Clearing the first screen gives you a 
chance at the jackpot — shooting at a 



single polar bear as it crosses the screen. 
You then proceed to new and more 
difficult screens where the animals 
move faster and the birds swoop more 
frequently. The action thus ranges from 
fairly easy at the start to positively 
frantic at the end, thereby winning the 
favour of everyone who likes zapping 
games, from ham-fisted novices to nim- 
ble-fingered keyboard experts. 

In the same vein of a familiar theme 
which cannot fail to please is Crazy 
Tracer. The object is to guide your 
paint roller round the edges of a grid of 
rectangles. Whenever a rectangle is 
completed, it changes colour and scores 
the player points according to the size of 
the rectangle; rectangles with objects in 
them such as cherries are worth most 
points. Hampering you in your efforts 
to race round the grid are so-called 
'monsters' which pursue the roller to 
squash it. Predicting the path the mon- 
sters will take is as vital in succeeding as 
is dexterity with the control keys. 

Although effective enough, the 
graphics in Crazy Tracer are in no way 
startling and the idea has appeared with 
slight variations many times elsewhere. 
Nevertheless, it makes a challenging 
and addictive game, which has been 
presented with typical Acornsoft thor- 
oughness and attention to detail. 

A slightly more ambitious production 
is Free Fall, which combines interest- 
ing and original graphics with unusual 
and difficult controls. The accompany- 
ing booklet of instructions makes some- 
what unpleasant reading. A space 
battleship has been injected with a cya- 
nide-based atmosphere by hostile aliens 
called Alphoids. Only one crew member 
has managed to don his space suit in 
time and must defend himself, and the 
vital records of the space station, bare- 
handed against the Alphoids. 

Alphoids can be destroyed by kick- 
ing, punching, ramming or throwing a 
bomb at them. The crewman can be 
killed by fire, explosions or suffocation. 
The Alphoids take a variety of forms, 
such as venomous craboids, biting and 



14 



ACORN PROGRAMS August/September 1984 



fire-breathing lobstoids, and waspoids 
which can do everything all the other 
breeds can do and have a deadly sting as 
well. 

Points in the complex game are 
earned according to the species of Al- 
phoid which has been destroyed and the 
method used to achieve it. The octago- 
nal space station is shown as stationary 
but is in fact rotating, and the crewman, 
propelled by air jets attached to his suit, 
moves in curves rather than straight 
lines. The rate of rotation increases as 
the player's score mounts and the heart- 
beat of the crewman and the amount of 
breathable air he has remaining are 
displayed at the side of the screen. 

Jaded computer games players may 
find the novelty and intricacies of Free 
Fall much to their liking but for the 
inexperienced player the complexity of 
the controls may prove too discourag- 
ing. There are separate keys to propel 
the crewman left and right, to move 
each of his arms and legs, and even to 
catch and throw a bomb; equivalent 
functions are provided using a joystick 
by moving it to different compass 
points. 

Surviving for any length of time, or 
even keeping the crewman from knock- 
ing himself out against the walls of the 
space station, is a daunting task. Excel- 
lent animated graphics, if only in black- 
and-white lines, add considerably to the 
interest of this difficult game. 

A batch of educational programs 
from Acornsoft has also made a recent 
appearance, including a series of lan- 
guage tapes based on the Linkword 
method developed by Dr Michael 




Gruneberg. 

More academic in bias, while retain- 
ing a strong element of entertainment, 
is Chemical Analysis, one of a series 
of three chemistry programs for 
schools. The tape covers three main 
areas — elements, organic and inorganic 
— and is aimed at children aged 14 to 
17. 

In each case, pupils learn or revise by 
trying to guess at substances, asking the 
computer a series of questions until the 
answer becomes clear. In the case of 




elements, for example, pupils are given 
a clue like "It is used in fireworks". 
They can then choose from a list of 
questions like "What colour is it?" 
"How does it react with oxygen?" 
"Does it conduct electricity?" and so 
on. 

By a process of elimination, they 
should arrive at the answer — magne- 
sium. They are then asked to supply the 
symbol for that element and after being 
shown a score card, can proceed to the 
next mystery element. 

The game can be played on three 
levels, with a longer and more difficult 
selection of elements on level three. If 
they are truly puzzled, pupils can sub- 
mit by pressing ESCAPE, which makes 
the computer provide the answer to the 
last question and proceed to the next. 
Another helpful feature is that ques- 
tions which have already been asked 
change colour. The only slight disad- 
vantage of this absorbing and instruc- 
tive program is the awkwardness of 
entering symbols with their mixture of 
upper- and lower-case letters. 

The organic and inorganic sections of 
the tape follow the same pattern, except 
that the questions concern tests on the 
substances and their results. Thought- 
fully designed and absorbing, Chemical 
Analysis should prove a useful tool for 
both teachers and pupils. 

Number Chaser, produced for 
Acornsoft by ASK, which specialises in 
educational programs, is a curious para- 
dox in that it aims to use the computer 
to counteract some of the ill-effects 
produced by calculators. Dependence 
on calculators, the authors say, means 



that many children are unable to do 
sums in their heads and often cannot 
judge whether an answer is correct 
within a few digits. 

Number Chaser takes the shape of a 
race game, in which you can choose 
your vehicle, from bicycle — easy level 
— to racing car. The computer flashes a 
sum at the top of the screen, with four 
possible answers at the top of each lane. 
You move your vehicle into the lane 
with the answer you think is closest to 
being correct, and if you have chosen 
correctly you gather speed and get clos- 
er to the finishing line. If you are wrong 
the vehicle behind you gets nearer, 
eventually crashing into you and ending 
your race. 

Although designed as a colourful and 
lively game, Number Chaser fails to 
hold the attention for as long as it 
might, especially in the more difficult 
section where the number of questions 
and the length of the race is a little 
discouraging. Still, a quick bicycle or 
stock car race might prove a useful 
exercise for some children, although it 
is a pity that at least one spelling error 
crept into the program. 

On the whole, however, the latest 
releases under the Acornsoft banner 
maintain the company reputation for 
software which, without making any 
great claims to originality, is reliable 
and thoughtfully produced. 

Aviator, cassette version £14.95, disc 
£17.65; JCB Digger, Carousel, Free Fall, 
Crazy Tracer, Chemical Analysis and Num- 
ber Chaser, cassette £9.95. 

All programs available from Acornsoft, 
Betjeman House, 104 Hills Road, Cambridge 
CB2 1LQ. 








ACORN PROGRAMS August/September 1984 



15 




BBC messages at 
your command 

Jeremy Richards begins a new programming series 



THERE must be many who, de- 
spite typing-in listings, have not 
learned all the ins and outs of 
BBC Basic. I hope to take you from first 
principles, through all the Basic com- 
mands to the more complex program- 
ming of sound, graphics and other 
effects. 

When you have turned on your BBC 
or Electron and you can see a message at 
the top of the screen and a flashing 
cursor, what do you do? You have 
probably tried typing-in a friendly mes- 
sage like 'HELLO' but all you receive 
in reply is a message telling you that 
you have made a mistake. 

In the words of a radio series, don't 



Two important things can be learned 
from this. First, at the end of any line, 
unless I indicate otherwise, always press 
the RETURN key. That tells the com- 
puter to carry out your instruction. 
Second, what we have done is to give 
the computer a legal instruction— a 
command it recognises. In this case the 
command it understands is 'PRINT*. 
By now you probably have guessed that 
the PRINT command does what it says. 
It prints to the screen anything you 
place between the quotation marks. 

You cannot type-in commands like 
that all the time. What we have done so 
far is to issue a direct command. We 
now need to store our commands so that 



'You could, of course, buy other 

people's software, but it is more 

interesting and more rewarding to 

write your own programs' 



panic. Computers are only machines. 
Before they can produce all the won- 
drous effects you have seen on other 
machines they have to be given a set of 
instructions telling them what is re- 
quired. Thai set of instructions is 
known as a program and is a logical 
sequence of commands through which 
the computer works its way. You could, 
of course, never write a program and 
buy other people's software but it is 
more interesting and eventually more 
rewarding to be able to write your 
own programs, and that is what we will 
do. Try typing the following: 

PRINT "HELLO" 

When you have typed that line, finish 
by pressing the RETURN key. See 
what happens? The word 'HELLO' has 
appeared on the next line. Now type the 
same line, except this time change what 
appears between the quotes. For 
example, you could type: 

PRINT "MY NAME IS JEREMY" 

Again, press RETURN when you 
have finished it. What has been printed 
to the screen has changed, this time to 
what you placed between the quotation 
marks— by the way, use the double quo- 
tation mark above the number 2. 



they can be carried out in the sequence 
we wish. We might want, for example, 
to write the name and address of a 
friend on the screen in a number of 
lines. To do that try program one: 
10 PRINT "CHRISTOPHER 

DAVIS" 
20 PRINT "10 THE AVENUE" 
30 PRINT "BASILDON. ESSEX" 

Remember to press RETURN at the 
end of each line. When finished, type 
RUN (RETURN) and the name and 
address is printed on three successive 
lines. What you have just done is to 
write your first program. Not the most 
exciting program in the world but it is a 
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program. Each line represents a com- 
mand to the computer which the ma- 
chine obeys. 

I used lines numbered 10 to 30. The 
numbers are not important — they could 
just as easily be lines 1, 4, 25. The 
important thing is that they represent a 
guideline to the computer as to the 
order in which the commands should be 
executed. The computer reads line 10 
first, carries out whatever is written 
there and then proceeds to the next line, 
line 20. It is good convention to build a 
program in steps of 10, as there are 
always times when you will need to 
insert an extra line and that would be 
difficult if you had left no space by 
writing a program using steps of one. 

To look at the program again type 
LIST (RETURN) and that command 
will print-out a listing of your program 
in the correct sequence. The command 
can be used only to list a program and 
cannot be used as part of a program. 

Let us go a little further. We have 
seen how the PRINT statement can 
place words on the screen but it can also 
carry out mathematical instructions. 
Type-in the following: 

PRINT 25*2 

That statement causes the computer 
to type *50'. That is different from what 
we have seen previously. Note this time 
there are no quotation marks. In the 
previous example the quotation marks 
were placed to inform the machine that 
we were dealing with a non-numerical 
event or something which did not re- 
quire any mathematics to be involved. 

In this present example I have asked 
the computer to tell me what 25 multi- 
plied by 2 is and it has replied with the 
correct answer, 50. Therefore the com- 
puter is capable of being a calculator as 
well. The asterisk '*' is the sign for 
multiplication and the division sign is 
'/'. Addition and subtraction uses the 
conventional ' + ' and '-' signs. Try 
using PRINT statement to do the fol- 
lowing: 

(a) Add 25 and 12 

(b) Subtract 23 from 79 

(c) Divide 80 by 10 

You should have typed the following 
to answer: 

(a) PRINT 25+ 12 



16 



ACORN PROGRAMS August/September 1984 



(b) PRINT 79-23 

(c) PRINT 80/10 

We can then use what we have 
learned to begin to write a program to 
test multiplication tables. Type the fol- 
lowing program 2a, using exactly the 
same line numbers: 

10 PRINT "This program will give 
you the answer" 

20 PRINT "to any number in the eight 
times table." 

30 PRINT "ENTER ANY NUM- 
BER" 

You should by now understand what 
will happen if you run this program. It 
asks the user to enter any number. That 
is where we reach our second keyword 
statement. We need to be able to enter 
information or input into the computer. 
To do that we use the INPUT state- 
ment which tells the computer we are 
requesting information and the com- 
puter will wait until an answer. is given. 
For example, type: 

INPUT number 

In response to the question mark 
enter a number. If you enter a number 
the * > ' prompt will return. If you then 
type: 
PRINT number 

the number you entered will appear. 
What you have done is to allow the 
value entered to be given to a numeric 
variable, the variable name being 'num- 
ber'. It could just as easily have been 
called 'a' or 'Fred'. 

You can think of a variable as a box. 
When you used the INPUT statement 
the number you entered was placed in 
the box called 'number' and at a later 
date when you asked for the contents of 
the box by typing 'PRINT number' the 
number you entered was shown. Use 
the example again in program 2b but 
this time change the variable name, i.e., 
'number' becomes 'a'. Now add two 
more lines to complete the program as 
follows: 

40 INPUT a 
50 PRINT 8*a 

Run the program. Can you see what 
is happening? Line 40 waits for the user 
to input a number and that number is 
multiplied by eight in line 50 and the 
PRINT statement prints that result to 
the screen. 

What happens if we enter a non- 
numeric value, i.e., the letter 'A'? Al- 
though it would appear that the reply is 
accepted, the result we obtain will al- 
ways be zero. That is because the ma- 
chine is expecting a numeric value and 
if anything else is typed-in, the com- 
puter reads it as a zero. 

That example leads to the two differ- 
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ent kinds of variable which exist. The 
first we have already encountered, a 
numeric variable. The second kind of 
variable we can use is called a string 
variable. When using a string variable 
any keyboard character is accepted and 
stored. The difference between that and 
a numeric variable is that maths cannot 
be carried out on a string variable. To 
distinguish between the two kinds of 
variables, a certain rule is followed. 

With the numeric variables we can 
call it what we like. Therefore where we 
have stored our numeric input in the 
program, we called it 'a' but could just 
as easily have called it 'number' or 
'acorn'. To tell the computer we are 
using a string variable we add a '$'— 
dollar— sign on to the end of the vari- 
able name. For instance, if we want to 
ask the user's name and then print a 
personal greeting to that person, we can 
write program three: 

10 INPUT name$ 

20 PRINT "Nice to meet you ";name$ 

The semicolon in line 20 tells the 
computer to place the variable *name$' 
next to the last thing printed, in this 



tag = 9 
or 
y=y + 8 

In the first example we have told the 
computer the numeric variable 'tag' 
equals 9 or, to be more exact, we have 
said 'LET tag =9'. The keyword LET 
is optional and we will not make use of 
it but the important thing to remember 
is that when we tell the computer a 
variable is something or that, as in the 
second example, the numeric variable 
'y' equals the value of 'y' plus 8, we are 
saying 'LET this variable equal . . .' 

So, for instance, if we want to print- 
out a name 10 times we could type 10 
lines each with the same PRINT state- 
ment: 
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10 PRINT "James ; 
20 PRINT "James : 
30 PRINT "James" 

That is a tedious way of doing it so 
we can use our ability to increment a 
value on a variable by typing: 

10x = 

20 PRINT "James" 

30 x = x+l 

40 IF x< 10 GOTO 20 

50 END 

Line 10 sets the value of x to 0. Line 
20 is where we print our word. At line 
30 the value of x is increased by 1— 
LET x equal the value of x, which at 
this point is 0, and add I to it, therefore 
making x equal to 1. Now two new 
keywords, IF and GOTO. What we 
have said in line 40 is that IF x is less 
than 10 GOTO line 20, where the print 
phrase is repeated. That continues until 
x is greater than 10. If x is greater than 



'The second kind of variable 

we can use is a string variable 

when any keyboard character 

is accepted and stored' 



case a space, because we want to leave a 
space between 'you' and the name en- 
tered. 

Therefore a string variable allows any 
alphanumeric character, i.e., any key- 
board character, but it cannot carry out 
mathematics on a number entered. If 
you are still not sure about the differ- 
ence between a numeric and string vari- 
able, try to write a program to carry out 
multiplication; this time use a string 
variable— one with a '$' sign at the 
end— to work out the result. 

Finally, let us learn a few more Basic 
keywords. The first keyword is 'LET'. 
You will often see in programs lines 
like: 



10 the program is finished, thus the 
END statement at line 50. 

I have now provided sufficient infor- 
mation for you to start writing some 
interesting and useful programs and I 
leave you with a problem. Write a 
program which tests someone's knowl- 
edge of any multiplication table chosen. 
Use all the commands to write a pro- 
gram friendly to the user and offering a 
variety of problems to solve. 

The commands you have learned so 
far should allow you to start writing a 
number of programs and next time we 
will deal with some new commands and 
consider how to plan the writing of a 
program. 
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Does your 
computer 

serve 

drinks? 



There's a new world of high technology 
opening up — a world where menial tasks 
are no longer a chore, but have become a 
challenging source of inspiration, 
enjoyment and problem solving. 

PRACTICAL ROBOTICS is the first 
magazine solely concerned with this 
rapidly expanding new area in software 
and hardware. 

So why not subscribe NOW and who 
knows, one day, — breakfast in bed? 



PRACTICAL 




Mail to: 

PRACTICAL ROBOTICS, ECC Publications Limited 

2, Newington Green Road, London N 1 4AQ 

Yes - I'd like to subscribe to PRACTICAL ROBOTICS 
(6 issues — price £6 including P&P) 

I enclose a cheque for £ 



Please charge my credit card: 
Card name 

Number 



Name 



Address 



Post Code 



Signature 



Date 



NB: This offer applies to UK subscribers only. 
_ Overseas rates available on request. 



FOR THE BBC MICRO 
SOFTWARE 

TINY PASCAL 

Pascal-T is a 1 6k Eprom program capable of compiling Source Pascal 
into a compact and very fast threaded-interpretive-code. Full editor and 
disc-support are included and the program is supplied together with 
comprehensivedocumentation. PRICE £59.00 + V.A.T. 

XCAL 

An expert Computer Aided Learning package in 16k Eprom and 
support disc. No programming skill required to construct learning 
'sessions' as the program is 'screen' driven. Facilities include Text 
pages, Graphics and Histograms. PRICE £65.00 + V.A.T. 

FORTH 

FIG-FORTH in 8k Eprom togetherwith manual. PRICEE34.72 + V.A.T. 

LOGO-FORTH 

A 16k Eprom program introducing this very powerful but extremely 

friendly Turtle-Graphics language. Users also have full access to the 

Fig-Forth support nucleus. Full documentation is included. 

PRICE £59.00 + V.A.T. 

M-UTS 

Powerful machine code monitor with disc utilities. 

PRICE £19.95 + V.A.T. 

(Special discounts available for educational establishments for all the 

above software) 

HARDWARE 

Always in stock Printers, Disc Drives IC's etc. 

FOR THE EPSON HX20 

SOFTWARE 

FORTH ROM including full documentation. £34.72 

HARDWARE 

Expansion Unit, Paper, Microcassettes etc. 

Retail/Mail Orders/Dealers 

enquiries to: 

HCCS Associates 

533 Durham Road, Low Fell, 

Gateshead, Tyne & Wear 

NE9 5EY 

Tel: (0632) 821924 



Please phone forquotes 



Retail sales also at: 
HCCS Microcomputers 
1 22 Darwen Street 
Blackburn, Lanes. 
Tel: (0254) 672214 




HORNBY ** 

SOFTWARE 

BBC Model B1.25 
PRO GOLF SERIES 

Converted from the highly successful Spectrum 
programs 

NEW ERA IN COMPUTERISED GOLF 



EXACT SIMULATION OF BRITAIN'S TOP GOLF COURSES 

(1) ALL GOLF RULES APPLY 

(2) DESIGNED FOR ONE OR TWO PLAYERS 

(3) PLAYED OFF ANY HANDICAP 

(4) ON EACH HOLE DIST, PAR, GREEN ENLARGEMENT 

(5) CONTROL SHOT - CLUB, STRENGTH. DIRECTION, 

SHAPE OF SHOT 

(6) GRAPHICS EXCELLENT 

(7) EXTREMELY REALISTIC 

TROON £7.75 

MOORTOWN NEW RELEASE £7.75 

NEW BIRKDALE £7.75 

WENTWORTH— EAST & WEST COURSES 
£11.00 

ALL PRICES INCLUSIVE OF VAT. P + P, AVAILABLE FROM: 

HORNBY SOFTWARE 

21 PINFOLD HILL, LEEDS LS15 0PW 

AP 
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WHS 



W*W 



£»V 



5 M0DE7 
10 PROC INSTRUCT IONS 

21 VDU 23,225, 16,56, 124, 68, 4C 
,16,16,40 

22 VDU 23,226,0,0,0,0,32,48,^ 
55,126 

23 VDU 23,240,0,0,0,0,28,48,1 
24 , 240 

26 ON ERROR RUN 

27 MQDE2 

28 VDU 19,0,4,0,0,0 
30H=0 

40S=0 

41 E=0 

50 L=10 , 

60CLS 

68 VDU 19,0,4,0,0,0 

70*FX 11,1 

BOX-10 

90Y=14 

95 COLOUR 2 

96 MOVE 0,538 

97 DRAW 1280,538 

100PRINT TAB(0,0) ; "bbbbpbbbbbb 

110 PRINT TAB (O, 15) " 

120K=RND(12> 

130IF K<3 THEN GOTO 120 

140F0R A=l T015 

150F0R T=l TO 100 

160NEXT T 

165 COLOUR 3 



b" 



•1: 



:■/«■•■ "■ -j^iM 



*. • 



■n'jt. 



fit 



>; 



170PRINT TAB(K,A> ;CHR*<225) 

180PRINT TAB(K,A-1);" 

190A*=INKEY*<0) 

200IF A*="Z" AND X>1 THEN X=X- 

210IF A*="X" AND X<17 THEN X=X 

215 COLOUR 2 

220PRINT TAB(X,Y>;" ";CHR*<226 

II It 

224 COLOUR 6 

225 MOVE 0,538 

226 DRAW 1280,538 
227 

230*FX 15,0 

240NEXT A 

2502 F K-X+l THEN PROCSCORE ELS 

PROCLIVES 

260G0T0 100 

270DEF PROCSCORE 

280S0UND 1 , - 1 5 , 1 50 , 1 

290S=S+10 

295 COLOUR 3 

300PRINT TAB( 1,18); "SCORE=";S 

310 IF S>H THEN H=S 

320 PRINT TAB<1, 20) ;"HI-SCORE= 



UUTE 



» • ■ *_*_ 



ViBtoH 



«?M 



V-V 



m 



oa 



m 



m 



x»> 



eoxwm 



%vo 



BOB 



«wi: v 



WV 



ffiHBH 



»»K 



L*>3 






BB° 



:•:•: 



vJM 



E5V 



ass? 



»: 



S85 






II II 



; CHR* < 



" ; H 

530ENDPR0C 
340DEF PROCLIVES 

342 PRINT TAB(E , 16) ; 
40);" " 

343 E=E+1 
S50 L=*L-1 

360S0UND 0,-15,50,2 
365 COLOUR 3 

370PRINT TABU , 19) ; "LIVES=";L 

380IF L<1 THEN PROCFINISH 
390 ENDPROC 

400DEF PROCFINISH 

405 COLOUR 3 

410PRINT TAB<0,21) ; "HIT THE S 
PACE BAR FOR ANOTHER GO" 

420T I ME«0 : REPEAT : UNT I L T I ME >3C 

430S0UND 1 ,-15,30, 5:S0UND 1,-1 
5,50,5: SOUND 1 , -15,20, 10: SOUND 1 
,-15,50,5 

440G=GET 

450 IF G=32 THEN GOTO 40 ELSE G 
OTO 440 

460DEF PROC INSTRUCT IONS 



AS**: 



DDQQ 



CRUISING down the river, sud- 
denly you see an aeroplane spill- 
ing-out men in parachutes. 
Using the Z and X keys to steer your 
boat, you must try to catch the para- 
troopers before they fall into the water. 
Every man you save is worth 10 
points but if you let more than 10 men 
drown the furious pilot of the aircraft 
will shoot you. 

Parachute Jump was written for 
the BBC B by B Norton of Bacup,. 
Lancashire. 






r->' 



470CLS 

480PR I NT TAB ( 1 1 , 4 > ; CHR* ( 1 4 1 ) ; C 
HR*(134> J "PARACHUTE": PRINT TAB < 1 
1,5) ;CHR*< 141 > ; CHR* (134) ; "PARACH 
UTE" 

485*FX 11,9 

490PRINT TAB<3,9>; "You are sai 
ling in the River Burt when you 
see an aeroplane spilling out me 
n in parachutes. You can miss 10 
men, but after that the pilot sho 
ots you dead. " 

500PRINT "PRESS THE SPACE BAR 
TO CONT" 

510G=GET 

520CLS 

530PRINT TAB(3,9) ; "Every life 
saved is worth 10 points. You mus 
t catch as many men as you can b 
efore your lives run out . You con 
trol the boat with Z-left & X=ri 
ght. " 

540PRINT "PRESS THE SPACE BAR 
TO PLAY" 

550G=6ET 

560ENDPR0C 
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10REM* *#*##***********#*****■* 
******* 

20REM************DAT ABASE**** 
******* 

30REM*********BY D.SENTINELLA 

******* 

40REM***************** ******* 
******* 

50REM***********VAR1ABLES**** 
******* 

60REM********* ******* ******** 
******* 

70MODE4 : D I MB* ( 200 , 4 > : D I MC* ( 4 > 

: C* < 1 > ="NAME" : C* (2) ="ADDRESS" : C* 

< 3 ) = " TELEPHONE NUMBER " : C* ( 4 ) = " DA 

TE OF BIRTH":DIMF*(200,5) :F=0:D= 



SOREM*********** INSTRUCT IONS* 
******* 

90VDU26! CLS: VDU23 ,1,0; 0; 0; 0; 
; :PRINTTAB< 10,2) ; "INSTRUCTIONS": 
RRINTTAB< 10,3) ; " " 

100PRINTTAB(2,5> ; "This is a DA 
TA BASE program tor the ACORN 
ELECTRON. " 

1 10PRINTTAB<2,7> ; "This program 
allows you to keep up to 200 na 
mes, addresses, telephone numbers 

and dates of birth." 

120PRINTTAB(2,10> ; "Included in 
the program is a MENU. To use i 
t enter the letter to the left o 
f the instruction." 

130PRINTTABC3, 30) ; "PRESS ANY K 
EY TO CONTINUE" : T$=GET$ 

140 

150REM**MENU»* 

160VDU26:CLS:PRINTTAB< 19,2) ; "M 
ENU":PRINTTAB(19,3) ; " " 

170PRINTTAB<10,6) ; "A WRIT 

E « NEW FILE. " 

180PR1NTTAB<10,8> ; "B LOOK 

AT CURRENT FILE. " 

190PRINTTAB(10,10>; "C ADD 

TO CURRENT FILE. " 

200PRINTTAB(10,12) ; "D SAV 

E FILE TO TAPE. " 

210PRINTTAB(10,14) ; "E LOA 

D FILE FROM TAPE. " 

220PRINTTAB(iO,16) ; "F INS 

TRUCTIONS. " 

230PRINTTABU0, 10) ; "G IND 

EX. " 

240PRINTTABC 10,20) ; "H DEL 

ETE A NAME. " 

250PRINTTAB<5,24> ; "PLEASE ENTE 
R THE LETTER YOU WANT." 

260A*=GET*: IF A*<>"A" AND A*<> 
"B" AND A*<>"C" AND A*<>"D" AND 
A$<>"E" AND A*<>"F" AND A*<>"G"A 
ND A*- :-"H" THEN260 

270IF D-=. 1THEN IFA$="B" 0RA*="C 

"OR Af="D"0R A$="G"0R A$="H" THE 

N CLS: PR I NT '"YOU HAVE NO FILE IN 

MEMORY ! " : F 0RA= 1 T02000 : NEX TA : GOT 

1 50 

280VDU26 : CLS : MOVE 1 , 958 : DRAW 1 2 
69 , 958 : DRAW 1 269 ,10: DRAW 10,1 : DRA 
W 1 , 958 

290 IF A$="A"THEN PRDCA 

300 IF Af="B"THEN F=0:PR0CB 

31 OIF A*="C"THEN PROCC 

320IF A*-"D"THEN PROCD 

330 IF A*="E"THEN PROCE 

340 IF A*="F"THEN G0T08O 

350 IF A*="G"THENPROCG 

360 IF A*="H"THENPRQCH 

370GOT0150 

380 

390DEF PROCA:REM**WRITE A FILE 
** 

400PRINTTAB( 12,1 ); "WRITE A FIL 
E. ":VDU28,1 , 15, 38, 3: M0VE10,510: D 
RAW1269,510 

410PRINTTABU) ; "In this part o 
f the program you can write a n 
ew file. The computer will pri 

nt up what it wants you do enter 

■I 

420M0VE 10,51 : DRAW 1 269 ,510 
430INPUT"How many people do yo 
u want in your file?"D 




440IF D<10R D-200THENPRINT"Y0U 
R NUMBER IS NOT BETWEEN 1-200!": 
FORA=1T03000: NEXTA: CLS: G0T0430 

450CLS:F0R A=1T0 D STEP2:VDU28 
, 1 , 1 5 , 38 , 3: CLS 

460PRINT"PERS0N. . " ; A 

470INPUT"NAME "B*(A, 1 ) 

480 INPUT "ADDRESS "B*<A,2> 

490 INPUT "TELEPHONE NUMBER 

"B*(A,3> 

500 INPUT "DATE OF BIRTH "B* 

(A, 4) 

510IF A+1>D THEN G0T0590 
520VDU28, 1 , 
530PRINT"PERSON. 

540INPUT"NAME "B* (A+l , 1 ) 

550INPUT"ADDRESS "B* (A+l ,2 



30, 38, 17: CLS 

"; A+l 



»60INPUT"TELEPH0NE NUMBER 



"B*<A+1,3) 

570INPUT"DATE 
(A+l ,4) 

580NEXTA 



OF BIRTH 



"B* 



YOU CAN KEEP up to 200 
names and addresses on this use- 
ful database program written for 
the Electron by David Sentinella of 
Camberley, Surrey. The main menu 
allows you to create a new file, retrieve 
information, add to existing files, and 
SAVE or LOAD from tape. Entries are 
indexed automatically and there is space 
on each one for entering a person's date 
of birth. 

Address Book will also run on the 
BBC B. 
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590VDU28 , 1 , 30 , 38 , 1 7 : CLS : PR I NT " 
PRESS ANY KEY TO RETURN TO MENU. 
" : T*=GET* : VDU26: CLS: ENDPROC 

600 

610DEF PR0CB:F=O:REM**LOOK AT 
A FILE** 

620Z=0:PRINTTAB(10,1); "LOOK AT 
CURRENT FILE": VDU28, 1 ,30,38,3 

630IFZ=1THENZ=2: RETURN ELSEPRI 
NTTAB(2,0) ; "In this part of the 
program you can look at the file 
in memory. All the computer n 
eeds to know is one piece of t 
he following inf omat i on: -NAME, 

ADDRESS, TELEPHONE NUMBER OR DA 
TE OF BIRTH. " 

640FRINT"The first letter of t 
he first word will do!" 

650INPUT"Please enter which of 
the above 1 i st ' you know. . "D'$ 

660IF D*<>"NAME" AND D*<>"ADDR 
ESS" AND D*<>" TELEPHONE NUMBER" 
AND D*<>"DATE OF BIRTH" THEN670 
ELSE680 

670IFD*<>"N" AND D*<; >"A" AND D 
*<>"D"AND D*<>"T" THENPRINT"YOU 
MUST ENTER ONE OF THE ABOVE LIST 
' " : FQRA= 1 T03000 : NEX T A : CLS : G0T063 






680IFD*="N"THEN D$="NAME" 

690 I FD*- " A " THEN D*= " ADDRESS " 

700IFD*="D"THEN D*="DATE OF BI 

RTH" 

7101 FD* = " T " THEN D*= " TELEPHONE 

NUMBER" 

720F0RA=1T04 

730IF D$=C*<A) THEN C=A 

740NEXTA 

750PRINT:PRINT"PART OF THE INF 

OMATION WILL DO" : PRINT"PLEASE EN 

TER THE ";C*(C>$" OF THE PERSON? 

": INPUTE* 

760F0RA=1T0D 

770IF INSTR(B*(A,C) ,E*> >=1THEN 

G0SUB950 ELSEG0T0780 

780NEXTA 

790IF E*=" " OR E*=""THEN PRIN 

T"YOU DID NOT ENTER ANYTHING 1 '": 

F0RA=1T02000: NEXT A: ENDPROC ELSES 

00 

800 IF F=0THEN PR I NT "THE ";D*;" 

YOU ENTERED IS NOT IN THE FI 

LE! ! ":FORA=1T02000:NEXTA: ENDPROC 

ELSE810 

S10IF Z=1THENRETURN ELSE REM** 

*WRITE RESULTS TO SCREEN*** 

820CLS : MOVE 1 O , 500 : DRAW 1 269 , 500 

: A-0 

830M0VE 1 O , 500 : DRAW 1 269 , 500 

840A=0 

850REPEAT: VDU28, 1 , 15,38,3: CLS: 

A=A+1 

860PRINT"PERS0N. . " ; A 

870F0RZ=1TQ4:PRINT" "jC*(Z> ; " 

";F*(A,Z) :NEXTZ 

880VDU28,1,30,38,17:CLS: IF A=F 

THEN920 

890PR INT "PERSON. . "; A+l 

900F0RZ=1T04:FRINT" ";C$(Z) ; " 

";F*(A,Z) :NEXTZ 

910A=A+1:PRINTTAB<2,10) ; "PRESS 

ANY KEY TO CONTINUE !": T*=GET* 

920PRINTTAB(2, 10) ; "PRESS ANY K 

EY TO CONTINUE!": IF GET*=""THEN9 

20 

930UNT I LA=F: VDU26: CLS: ENDPROC 

940REM 

950F=F+ 1 : FOR E= 1 T04 : F* < F , E ) -B* 

<A,E> :NEXTE:F*<F,5)=STRMA) :RETU 

RN 

960 

970DEF PROCC:REM**ADD TO CURRE 

NT FILE** 

980PRINTTAB ( 10,1) ; "ADD TO CURR 

ENT FILE": VDU28, 1 ,30,38,3:CLS 

990VDU2S , 1 , 30 , 38 , 3 : CLS 

1000PRINTTAB(2,1) ; "In this part 

of the program you can add to 

the file in memory. You enter 

this in the same way as you did 

before. ": INPUT"Number of p 

eople you wish to add to the c 

urrent file. . "Q 

101 OIF G>200 OR G<1THEN PR I NT "Y 

OUR NUMBER IS NOT BETWEEN 1-200! 

":FORA=1T02000:NEXTA.-CLS:GOT0100 

O 

1020IF D+G>200 OR D+G< 1THENPRIN 

T"THE OVERALL NUMBER IS OVER 200 

! " : FORA= 1 T02000: NE X TA : CLS : GOTO 1 

00 

1 030M0VE 1 O , 500 : DRAW 1269, 500 

1040F0RA=D+1 TO (D+GJ5TEP 2 

1050VDU28,1 ,15, 38, 3: CLS 

1060PRINT"PERS0N. . ";A 

1070 INPUT "NAME ";B*(A,1) 



1080 INPUT "ADDRESS " ; B* (A, 2) 

1090INPUT"TELEPH0NE NUMBER 

" ; B* < A , 3 > 

1100INPUT"DATE OF BIRTH ";B 

*(A,4) 

11 10VDU28, 1 ,30,38, 17: CLS 

11 20 IF A=<D+G) THEN 1190 

1 1 30PR INT " PERSON . . " ; A+ 1 

1140INPUT"NAME ";B*<A+i,l) 

1 150INPUT"ADDRESS " ; B* (A+l , 

2) 

1 160 INPUT "TELEPHONE NUMBER 

";B*(A+1,3) 

1170INPUT"DATE OF BIRTH ";B 

*(A+1 ,4) 

1180NEXTA 

1190VDU28,1 ,30,38, 17: CLS: PRINT" 
PRESS ANY KEY TO RETURN TO MENU. 
" : G*=GET*: VDU26: CLS: D=D+G 

1 200ENDPR0C 

1210 

1220DEF PROCD:REM**SAVE FILE** 

1230PRINTTABUO, 1) ; "SAVE FILE T 
TAPE":VDU28,1,30,38,3 

1240PRINT" In this part of the 

program the computer will s 
ave the file on tape. " : INPUT"PLE 
ASE ENTER FILE NAME. . "L* 

1250I=0:H=0PEN0UTL* :REPEAT: 1=1 
+1 :F0RA=1T0D: I*=BJ(A, I ) 

1 260PR I NT£H , I * : NEX TA 

12701*= "NO MORE": I*=I*+STRING* < 
248," ") 

1280PRINT£V,I* 

1 290UNT I L I =4 : CLOSE£H 

1300ENDPR0C 

1310 

1320DEF PR0CE:REM**L0AD FILE** 

1330PRINTrAB(10,l);"L0AD FILE F 
ROM TAPE":VDU28,1,30,38,3 

1340PRINT" In this part of the 

program the computer will 1 
oad a file from tape. . " : INPUT"PL 
EASE ENTER FILE NAME. . "L* 

1350H«=L*:D=0:J*="N0 MORE":J*=J* 
+STRING* (248, " " ) 

1 360F0RA= 1 T04 : D=0 : REPEAT : D=D+ 1 

1370INPUT£H,I*:B*(D,A)=I*:UNTIL 
I*=J* 

1 380NE X TA : CLOSE£H 

1 390F0RA= 1 T04 : B* ( D , A ) = " " : NEX T A : 
ENDPROC 

1400DEF PROCG: REM** INDEX** 

1410PRINTTAB(15,1) ;" INDEX ": PRIN 

TTAB(1,3> ; "NUMBER NAME":VDU28 

,1,30,38,4 

1 420CLS : FURA= 1 TOD 

1430PRINTTABC0) ; A; " "; B 

*(A,1> 

1440IFVP0S>=20 AND AOD THENPRI 
NTTABd ,23) ; "PRESS ANY KEY TO CO 
NTINUE": Z*=GET*:CLS 

1450NEXTA:PRlNr ' "PRESS ANY KEY 

TO RETURN TO MENU" : Z*=GET*: ENDP 
ROC 

1460DEF PROCH:F=0:REM**DELETE A 

NAME** 

1470PRINTTABU3, 1 ); "DELETE A NA 
ME":VDU28,1,30,38,3' 

1480PRINT"In this part of the p 
rogram you can delete a name t 
hat is in the file. To do this y 
oli need to know one of the fol 
1 owj ng: -name, address, tel ephone 
number or date of birth. ":Z=1 

1 49060SUB640 

1 5001 FZ=2THENG0T0 1 480 

1 5 1 OCLS : FORA= 1 TOF : I =0 : PR I NT "PER- 
SON"; A 

1520REPEAT: 1=1+1 : PR I NTT AB (O) ; C* 
(I) ; " "jF*(A,D :UNTILI = 4 

1530PRINT ' ' "DO YOU WISH TO DELE 
TE THIS NAME(Y/N) ":Z*=GET*: IF Z* 
= " Y " THENGOTO 1 560 

1540CLS:NEXJA 

1550PRINT* "PRESS ANY KEY TO RET 
URN TO MENU": Z*=GET*: ENDPROC 

1560F0RQ=VAL <F*<A,5) ) TO D 

15701=0: REPEAT 

15801=1+1 :B*(Q, I)=B*(Q+1,I) 

1590UNTILI=4 

1600NEXTG:D=D-1:G0TQ1540 
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10 


ON ERROR GOTO 20 


20 


CLS 


30 


GOSUB 410 


40 


MODE 1 


41 


*FX 200,2 


50 


*FX 11,0 


60 


VDU 23 , 240 , 1 26 , 1 26 , 1 26 , 1 26 


,126,3 


126,60,24 


70 


HS=0 


BO 


X=15:Y=10:S=0:D=0 


90 


VDU23;8202;0;0;0; 


1 00 


COLOUR 2 


110 


PRINTTAB(RND<30) ,31) "*" 


120 


PRINTTAB<RND<30) ,30) "*" 


130 


FOR K=0 TO DS 


140 


PRINTTAB<RND<30) ,30) "«" 


150 


NEXT K 


160 


COLOUR 1 


170 


PRINTTABtX ,Y) ;CHR*<240) ; TA 


B(1,1I 


;S 


180 


S0UND1,-5,X,1 


190 


S=S+1 


200 


lf--tNKEY*UO) 



210 IF I*= M Q" D=-l 

220 IF I*="p" D=l 

230 X=X+D 

240 IF I*="@" S=S-80 :CLS 

250 LET D=0 

260 IF X>30 X=30 

270 IF X<1 X=l 

280 IF POINT <X#32+16, 656) >0 GO 
TO 300 

290 GOTO 100 

300 PRINT TAB<X-1 ,Y> "<£>" 

310 IF S*="N" GOTO 330 

320 FOR 1=1 TO 100:S0UND 0,-5 
,1 , llNEXT 

330 CLS 

340 PRINT TAB(5,5) "YOUR SCORE 
IS ";S 

350 IF S>HS THEN HS=S: INPUT"E 
NTER YOUR NAME " H* 

360 PRINT " HIGH SCORE 



390 CLS 

400 GOTO 80 

410 PRINT 

420 PRINT" "; 

£££££CASTEROIDS££££ 



BY" 
CHRISTOPHER BROW 



N <C> 



430 PRINT" 
£££ " 

440 PRINT " 

450 PRINT " 
1984" 

460 PRINT 

470 PRINT " 

480 PRINT " 

490 PRINT " 

SCORE IS 80 

500 PRINT " 
PUT S$ 

510 *FX 210,0 

IF S*="N" THEN *FX 
INPUT "DIFICULTY (1 



"Q" 

■veil 



R 



LEFT 

RIGHT 

HELP ""© BUT YOU 
LESS" 
SOUND ?(Y/N> 



* * 



IN 



520 
530 
"DS 
540 CLS 



210,1 
TO 30) 



370 PRINT" ";HS;" by " ; H* 
380 GOSUB 530 



,j%j 



RETURN 



>60 VDU 23;8202;0;0;0; 




. t: ■■-■■ 



't * - 

>••■•': • 

:■•■•. : ;; ■"•■■ "M 

: ■:•':■ ■:;; ' 

'- .■■'■•••"v..l-i 



-^-*<- 



*C&> 



%' v ::ii 



Trr*^-* m 






» V 









\ &, 



m 



K 



s 



i 



I 



\ 



\ 



•**? ft 






*7F 



A ^=3 






</A 



I 



/ 



v ' 



/. 



/ 



k 



a 



\r 



\ v, ^ 



f-A 



iv 



W"9 



"■'■'■:■ ■ 






•i * * * *>^j* if 



A CLASSIC arcade favourite is I 
brought to your BBC B or Elec- 
tron by this version from Chris- 
topher Brown of Great Barford, 
Bedfordshire. The object is to steer 
your fleet of cargo spaceships safely 
through the asteroids which hurtle to- 
wards you. 

Ten levels of difficulty allow you to| 
choose the number and the speed of the 
asteroids. 
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10 MODE 2 

15 ON ERROR G0T03700 

16 VDU23;8202;0;0;0; 
20 PROCINIT 

30 PROCSPEED 

40 S'/.=RND<4> 

45 CLG 

46 GC0L0,1 

50 X7.=600:Y7.= 1000: I"/.= 100 

60 IF S7.= l THEN PROCSQUARE ( XX 
,YX,I%) 

70 IF S7.=2 THEN PROCDI AMOND ( X 
7.,Y7.,I7.) 

80 IF S7.= 3 THEN PROCTRI ANG ( X7. 
,Y7.,I7.) 

90 IF S7.=4 THEN PROCRECT ( XV. , Y 
7., 17.) 

110 PROCLINE 

120 PROCANSWER 

140 GOTO 40 

1000 DEFPROCINIT 

1005' 1 7.= 100 

1010 GC0L0,9 

1020 X'/.=220:Y'/.= 1 

1030 PROCSQUARE( 

1050 GCOL.0,10 

1060 X7.=900: Y7.= l 

1070 PROCDI AMOND 

1100 GCQL0,12 

1110 X 7,= 200 1 Y7. = 5 

1120 PROCTRIANG( 

1 150 GCOLO, 14 

1160 X7.= 1100: Y7.= 

1170 PROCRECT (X 7. 

1400 DELAY =TIME 

1410 REPEAT 

1420 UNTIL TIME- 

1430 GC0L0,1 

1440 X7.=220:Y7.= 1 

1450 PROCSQUAREC 

1460 GC0L0,2 

1470 X7.=800: Y7.= l 

1480 PROCDI AMOND 

1490 GCOL0,4 

1491 X7.=200:Y7.=5 

1492 PROCTRI ANG < 

1493 GC0L0,6 





1494 X7.= 1100:Y7.=500 

1 495PR0CRECT ( X7. , Y7. ,17.) 

1496 ENDPROC 

DEFPROCSPEED 

PRINT TAB<5, 5) ; "SELECT SPE 



1 500 
1 520 
ED" 
1530 
1540 
1550 



TAB(5,9) 

TAB (5, 12 



".".> 
X7.,Y7., 17.) 

000 
(X7.,Y7.,I7.) 

00 
X7.,Y7.,I7.) 

500 

, Y7. ,17.) 



DELAY=800 

000 
X7.,Y7.,I7.) 

000 
(X7.,Y7.,I7.) 

00 

X7.,Y7., 17.) 



1 560 
1561 
1562 
1570 



1620 

1 630 
1640 
1650 
1 660 
1 700 
1710 
1720 
1730 
1740 
1750 
1760 
1 BOO 
1810 



1830 
1 840 
1850 
1900 
1910 
1920 



TAB*! 

SP 

<1 THEN 

>3 THEN 
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PRINT 
PRINT 
PRINT 
INPUT 
IF SP 
IF SP 
ENDPROC 
1 600DEFPROCSQUARE ( X 
1610 MOVE ( X7.-2* 17.), 
DRAW<X7.+2*I7.) , 
DRAW(X7.+2*I7.) , 
DRAW<X7.-2*I7.> , 
DRAW(X7.-2*I7.) , 
ENDPROC 
DEFPROCDIAMOND 
MOVE X7.,Y7. 
DRAW(X7.+2*I7.) , 
DRAW (XX) , (Y7.-4 
DRAW(X7.-2*I7.) , 
DRAW X7-,Y7. 
ENDPROC 
DEFPROCTRIANGC 
MOVE X7.,Y7. 
1820 DRAW (X7.+2*I7.) 
DRAW <X7.-2*I7.) 
DRAW X7.,Y7. 
ENDPROC 

DEFPR0CRECTCX7. 
MOVE (X7.- 1 7.) .Y7. 
DRAW (X 7.+ 1 7.) ,Y7. 



; "l.Fasf ' 

>; "2. Medium" 

>; "3. Slow" 

GOTO 1560 
GOTO 1560 

7-,Y7.,I7.) 

(Y7.) 

(YX) 

(Y7.-4*I7.) 

(Y7.-4*I7.) 

( Y7. ) 

(X7.,Y7.,I7.) 

(Y7.-2*I7.) 
• 17.) 
(Y7.-2*I7.) 



X7.,Y7.,I7.) 

, <Y7.-4*I7.) 
, (Y7.-4*I7.) 



, Y7. ,17.) 




1930 DRAW (X 7.+ 1 7.) , (Y7.-4*I7.) 

1940 DRAW(X7.-I7.) , (Y7.-4*I7.) 

1950 DRAW(X7.-I7.) ,YX 

1960 ENDPROC 

2000 DEFPROCLINE 

2010 I7.=50:X7.=200: Y7.=500 

2020 PR0CSGUARE(X7.,Y7.,I7.) 

2030 X7.=450 

2040 PROCDI AMOND <X7.,Y7., 17.) 

2050 X7.=800 

2060 PR0CTRIANG(X7.,Y7,,I7.) 

2070 X 7.= 1100 

2080 PROCRECT (XX « Y7. ,17.) 

3000N7.=0 

3001 REPEAT 

3002N7.=N7. + 1 

3003 IF N7.=5 N7.= l 

3011 PRINT TAB(17,24) ; " " 

3012 PRINT TAB( (5* (N7.-1 ) -3) 



>A) 



II 



"I 



30 1 3 

All 



PRINT TAB< ( (5*N7.)-3> ,24) ; " 



3014 Af=INKEY*(100*SP> 

3015 UNTIL A$<>"" 
3040 ENDPROC 

3100 DEFPROCANSWER 
3110 IF N7.=S7. THEN PROCRIGHT EL 
SE PROCWRONG 
3115 *FX15,1 
3120 ENDPROC 
3200 DEFPROCRIGHT 
3210 GC0L0,12 
3220 MOVE 400,400 
3230 DRAW 500,300 
3240 DRAW 700,800 
3270 DELAY =TIME 
3280 REPEAT 

3290 UNTIL TIME-DELAY=600 
3300 ENDPROC 
3400 DEFPROCWRONG 
3410 GC0L0,7 
3520 MOVE 400,800 
3530 DRAW 800,400 
3540 MOVE 800,800 
3550 DRAW 400,400 
3560 DELAY=TIME 
3570 REPEAT 

3580 UNTIL TIME-DELAY=600 
3590 ENDPROC 

3700 IF ERR=17 THEN CLG: GOTO 30 
3710 REPORT 



MRS B J GRIBBLE of Oxford 
wrote Mix and Match for 
the Electron and BBC B to 
help the youngest member of the fam- 
ily, aged three, to learn to use a com- 
puter and to recognise geometric 
shapes. 

At the start, four basic shapes are 
displayed at the bottom of the screen. 
One is then selected and re-drawn at the 
top of the screen and an arrow moves 
along the bottom row. The child presses 
the space bar when the arrow is facing 
the shape matching the one at the top of 
the screen. A correct answer is rewarded 
with a flashing tick, an incorrect one 
with a large cross. 

A new game starts automatically after 
eight seconds and the speed of the game 
can be varied by pressing ESCAPE to 
return to the menu. 
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CLEARLY HE HAD ONLY ONE 
KEYBOARD IN MIND WHEN HE 
DESIGNED THE HUMAN HAND 















IMAGINE A KEYBOARD 

... so simple to use that in under an hour 
you're touch typing the entire alphabet, 
numbers and punctuation. 

... so effortless it needs only one hand, your 
eyes never leaving the screen or the document 
you're copying. 

A keyboard you can hold in your palm, and 
yet, so powerful, it can replace every input, 
command and function key of your BBC 
computer . . . 

Just think how effortless it would be if you 
could touch type your programs, data and text. 

How you could lean back and relax; be faster 
and more accurate; your mind free to think, and 
your eyes to read. 

IT'S CALLED QUINKEY 

And for £49.95 you'll get everything you 
need — hardware and software — to use 
Quinkey with your BBC computer. 

HOW CAN 6 KEYS DO THE WORK OF 
72? 

You simply press the keys in different 
combinations. Each combination represents a 
character. 

Quinkey has 5 keys plus a Control key, each 
finger belonging to its own key — so there's no 
need to hunt and peck . . . BUT . . . 




. . . HERE'S THE MAGIC! 

Look at these diagrams: 




a 



□ 



a 



i ■ 




a 





See how the lines joining the key 
combinations form the characters? For each 
letter there's an instantly recognised and easily 
memorised visual clue. 

That's the trick — and it works! 




*** L 



^ 






* 



f* 




• . 




YOU CAN TRY IT NOW! 

Rest the fingers of your right hand on a table top. 
Imagine the keys. 

To write an "I" you press your Thumb and Index finger 
down at the same time. 

Foran"L"you press your Thumb, Index and Little 
fingers. 

To write "Y" you use your Thumb, Middle and Ring 
fingers. . .and so on. 

That's all there is to it. 

Here's what users are saying about the keyboard: 

- PETER RODWELL (as Editor of 'Personal Computer 
World') "took me half an hour to learn the alphabet . . .far 
easier than learning to type. It's an addictive device, and I'm 
starting to wonder how I ever managed without one." 

-PETER WHEELER (in the Times Educational 
Supplement') "a new user can start to touch typeafterone 
hour's usage/' 

- FRANK DALE (BBC Producer- writing in 'Electronic 
Times') "no other machine is so easy to use, so easy to learn, 
so generally useful . . " 

NO RISK, MONEY BACK GUARANTEE. 

If you're unhappy with your Quinkey just return it 
within two weeks for a full and courteous refund. 

ONLY £49.95 (including VAT and postages packing). 
HERE'S WHAT YOU GET. 

* One Quinkey keyboard. 

* Breakthrough multi-channel interface for up to four 
keyboards (plug into analogue port). 

* Two new powerful software packages, PROG & WP 
(described below). 

* Gomprehensive Quinkey manual. 

"PROG" and " WP" (free with the Quinkey package) are 
utility programs written special ly for the BBC. 

"PROG" enables your BBC to recognise and interpret 
the signals from the Quinkey keyboard. It combines easily 
with your application programs enabling you to use 
Quinkey as a comprehensive alternative keyboard. 

"WP" optimises Quinkey to work with word- 
processing packages "Wordwise ""View" and "Edword" — 
a perfect text-writing combination. 

KEYBOARD RANGE. 

All BBC "B" keyboard inputs generate from the 
Quinkey, except the hard-wire key,"Break." 

TECHNICAL DATA: 

Loading length: &605. Running length: &300. 
No zero-page locations. all ADC channels. 
Interrupt service vector IRQ2V. correctly chained. 

TESTED COMPATIBILITY 

BBC Model "B" Acorn 

OS 1.2 

BASIC I or BASIC II (unless using 

INKEY with negative argument) Acorn 

DFS0.90 Acorn 

View A1.4 Acornsoft 

Wordwise 1.17 Computer Concepts 

Edword Clwyd Technics 



QUjNKEY IN THE CLASSROOM. 

Quinkey keyboards allow up to four children to use one 
BBC computer at the same time. "QUAD" software 
supplied with the Educational Pack enables children to 
write simultaneously on a split screen and print out their 
work separately. 

(Send the coupon if you would like more information 
about the remarkable results that children of all ages and 
abilities are having with Quinkey.) 

\ 




Order from your nearest BBC Acorn dealer or by 
sending in the coupon below, now. 

microwriterD 

D An associate company of the I lambro Life Group of Companies 

31 Southampton Row, London WClB 5HJ 

I To: Vector Marketing I.td.,Denington Estate, Wellingborough, !! 

Northants.NN8 2RL. 

PLEASE SEND: 

001 Quinkey pack(s)C« £49.95 



002 
003 



Extra keyboard(s) @ £29.95 



£. 
£. 



.Educational Pack(s) @ £148.80 



(Quinkey pack plus 3 extra keyboards 
and additional "QUAD" software) 
postage and packing 



£ 2.50 



I realise that I can return the pack(s) undamaged within two weeks of 
receipt of order, if I am not fully satisfied, for a complete refund. 

Send more information about Quinkey in the classroom. □ 

I enclose a cheque made payable to: 

Vector Market ing"Microwriter Ltd" for £ 

Or debit my Visa/Access credit card No 

SIGNED: 

NAME: 

ADDRESS: 



AP/8/84 



Please allow up to 28 days for delivery. 

microwritor 



Reg. no. 1374069 



QUINSY 

LTPffiBESTIDE ASINCE THEHUMAN HANDj 




j !ri M' •••»•"• ""*■ • . . . • 


2100LDSC0RE=0 


**** 


*** 




220TITLE=0:TITLE2=0 


430REM END OF MAIN LOOP 


20REM« *********************** 


230NX=0: NY=0: T=l : G=5 : L IFE=5: S 


440REM*** *************** ****** 


*** 




CORE=0:EX=5 


#*** 


30REM 


VARIABLES 


240VDU23 ,173,0,0, 240 , 254 , 240 , 


450DEFPR0CLEFT 


1 40REM 


X&Y = BASE POSITION 


,0,0: VDU23 , 1 74 , , 30 f 1 58 , 255 , 1 58 , 


460 OLDPOS=X 


50REM 


NX&NY= MISSILE POSITIO 


30 , , , : VDU23 , 1 75 , 8 , 8 , 8 , 8 , 8 , 28 , 


470IF INKEY<-98> THEN X=X-1:IF 


N 




28,62 


X<=1THENX=1 


60REM 


T&G = ENEMY SHIP(TARG 


250A*=CHR*174+CHR*173 : B*=CHR* 


' 480PRINTTAB(X+1,Y) " " :PRINTTA 


ET> 




175 


B(X,Y) ;B$ 


70REM 


POS 1 T I ON 


260M0DE7: VDU23; 8202; 0; 0; 0; : PRO 


490ENDPR0C 


80REM 


LEV - LEVEL OF DIFFICU 


CTITLE :M0DE2:VDU23;8202;0;0;0; : 


500REM************************ 


LTY 




PROCTITLEB 


****** 


90REM 


R&RN= THESE PASS ON LE 


270X=10: Y=25:PRINTTAB(X,Y) ; B* 


501 REM************************ 


| V AS 




280PRINTTAB(13,1) "Li f e" ; LIFE: P 


******* 


1 OOREM 


A RANDOM NUMBER 


RINTTAB(l,l>;"Score"; SCORE 


510DEFPR0CRIGHT 


INTO 




290F=0 


520IF INKEYC-67) THEN X=X+1: I 


110REM 


THE TARGETFIRE P 


300REM************************ 


F X>=19THEN X=19 


1 ROC 




****** 


530PRINTTAB(X-1,Y>" " :PRINTTA 


1 20REM 


Fl,2,3,4 = FLAGS 


3I0REM START OF MAIN LOOP 


B(X,Y) ;B* 


1 30REM 


THE OTHER VARIABLES US 


320REM************ ************ 


540ENDPR0C 


I ED ARE 




****** 


550REM* ******* ******* ********* 


140REM 


SELF EXPLANITORY, 


330REPEAT 


****** 


J 150REM 


THE REMARKS CAN, OF COU 


340 IF POINT (NX*64+32, 1024- (NY 


551 REM************************ 


1 RSE,BE 




-1>*32-15>=2 THEN PROCHIT 


****** 


1 160REM 


LEFT OUT OF THE PROGRA 


350PR0CTARGET 


560DEFPR0CFIRE 


M. 




360PR0CLEFT 


570IF NY<=2THENF=0:PRINTTAB(NX 


170REM* ******* **************** 


370PR0CRIGHT 


,NY>" " 


*** 




380PR0CGUIDE 


580 IF F=l THEN NY=NY-1 : COLOUR 


180REM************************ 


390PR0CFIRE 


1:PRINTTAB(NX,NY) " ! " : PRINTTAB f NX 


*** 




400PR0CTARGETF I RE 


, NY+ 1 ) " " : C0L0UR7 : G0T0600 


| 190F3=0 




410UNTIL FALSE 


590 IF INKEY<-74> THEN F=1:NX«X 


200F4=0 




420REM******** **************** 


: N Y= Y : SOUND 1 , - 1 5 , 30 , 4 : SOUND 1,-10 
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FIRE at the enemy ship as it flies 
overhead on its attack run. You 
score 10 points for each direct hit 
but watch for the return fire, which is 
extremely accurate. You can avoid it by 
moving your base left and right with the 
Z and X keys. 



,30,2 

600ENDPROC 

610REM************************ 
******* 

61 1REM********« *************** 
******* 

620DEFPR0CTARGET 

630T«T+1:IF T=19 THEN PRINTTAB 
(18, G)" ":T=T=1 

640IF G=Y THEN G=5 

650PRINTTAB(T-1 ,G) " " : C0L0UR2 
: PRINTTAB < T , G) ; A*: C0L0UR7 

660ENDPROC 

670REM*** ********************* 
****** 

671 REM************************ 
******* 

680DEFPR0CTARGETF I RE 

690RN=RND ( I NT ( R ) ) : I F SCORE >500 

THEN R-R-IbIF R<1THEN RN=1 

700 IF RN=1 AND SCORE >50THEN G 
COLO , 1 : MOVE < T+2> *64 , 850: DRAW OLD 
P0S*64 , 200 : GCOLO , : MOVE < T + 2 ) *64 , 
850: DRAW0LDP0S*64 , 200: SOUNDO , -7 , 
2,2:GCfJL0,7 : IF OLDPOS=X THEN LI 
FE=LIFE- 1 : PRINTTAB < 13, 1 ) "Li -f e 
» : PRINTTAB (13,1) "Li f e" ; L IFE 

710IF SC0RE=100 AND F3=0 THEN 
F3=1:PR0CSETUP 

720IF SCORE-OLDSCORE=100 AND S 
CORE MOO THEN PROCSETUP 

730 IF LIFE=0 THEN PROCGAMEEND 

740ENDPR0C 

750REM**** ******************** 
****** 

751 REM****** ****************** 
****** 

760DEFPR0CGU I DE 

770IFNX>=19THENNX=19 

780IF INKEY (-122) THEN NX=NX+1 
:PRINTTAB<NX-1 ,NY> " ": IFNX>=19TH 

ENNX=19 

790IF INKEY (-26) THEN NX=NX-1:P 
RINTTAB(NX+1 ,NY> " ":IF NX<=1THEN 
NX=1 

800 IF NY<=2 THEN NY=2 

810ENDPR0C 

81 1REM************************ 
****** 

820REM**** ******************** 
***** 

830DEFPR0CHIT 

840PRINTTAB(NX ,NY) ; " " 

850 F0RN=1T032 

860C0L0URRND ( INT (16) ) : PRINTTAB 
( T , 6) ; A* : PROCDELA Y ( 6 ) 

870PRINTTAB(T,G) " 

880IF F4=0 THEN PROCSOUND ELSE 
GOTO 890 

890NEXT 

900F4=0 

9 1 0T= 1 

920F=0 rNX=OiNY=»0 :C0L0UR7:SC0 
RE=SC0RE+10:PRINTTAB(1 ,1) "Score 
" ; SCORE 

930PR0CDELAY ( 100) 

940ENDPR0C 

950REM**************** ******** 
******* 

951 REM************************ 
****** 

960DEFPR0CDELAY (TM> 

970TIME=G: REPEAT UNTILTIME=TM 

980ENDPR0C 

990REM************************ 
******* 

991 REM************************ 
****** 

1 OOODEFPROCSETUP 

1010*FXI5,0 

1 0200LDSCORE=SCORE 

1030LIFE=LIFE+EX 



1 040CLS 

1 050COLOUR 1 : PR I NTTAB (2,10)" YOU 

HAVE GAINED 

EXTRA LIVES 

1060C0L0UR7 

1070PRINTTAB<5, 19) "Hit Space" 

1 080PR0CDELAY ( 1 00) 

1090*FX15,0 

1100REPEAT UNTIL GET=32 :CLS:PR 
INTTABU, 1) "Score" ; SCGRE: PRINTTA 
B(13,l)"Life";LIFE 

11 10ENDPR0C 

1 120REM* *********************** 

**** 

1 121REM************************ 
***** 

1130DEFPR0CTITLE 

1140 T#=" LASER ATTACK " : IN 
ST*=" Instructions 
U50CLS 

1160F0R N=35T07STEP-1 
1170TITLE=TITLE+1 

1 1 80PR I NTTAB ( N , 3 ) ; LEFT* ( T* , T I TL 
E) 
1190PR0CDELAY(1) 
1200NEXT 

1210F0R N=35 TO 10STEP -1 
1220TITLE2=TITLE2+1 
1 230PR I NT TAB ( N , 5 > ; LEFT* ( I NST$ , T 
ITLE2) 
1 240PR0CDELAY < 1 > 
1250NEXT 

1 260PR0CDELAY (100) 
1270PRINT:PRINTTAB(3> ; "The obje 
ct of the game is to hit 
the enemy ship as it flies on 

its attack run" 
1280PRINT: PRINTTAB (3) "For every 
hit you get ten points. H 
owever the enemy ship will fire 

back. The good news is tha 
t it won't fire back i 

mmedi at 1 y . " 

1290PRINT: PRINTTAB (3) "The bad n 
ews is that when it does I 
T IS EXTREMELY ACCURATE. So keep 
on the move" 
1300PRINT: PRINTTAB (3); "Every ti 
me you ars hit you loose 
a life. When you score one hundre 
d you gain extra lives" 

1310PRINT:PRINTTAB(7) ; " (Press a 
ny key) " 
1320REPEAT UNTIL GET 
1330CLS 

1 340PR I NT : PR I NT : PR I NT : PR I NTTAB ( 
5)CHRS135"SURVIvAL RATE" 
1 350PR I NT : PR I NTTAB ( 3 ) CHR$ 1 29 " Le 

vel 1 Easy" 

1 360PR I NT : PR INT T AB ( 3 > CHR* 1 28 "Le 
vel 2 Not so easy" 
1 370PRI NT : PR I NTTAB ( 3 ) CHR* 1 30 "Le 

vel 3 &**'£_7.. hard" 

1 380PR I NT : PR I NTTAB ( 3 ) CHR* 1 3 1 "Le 

vel 4 Impossible" 

1390PRINT: INPUTTAB(S) "Enter lev 
el number "LEV: IF LEV< 1 OR LEV>4 
THEN GOTO 1330 
1400 IF LEV=1 THEN R=75 
141 OIF LEV=2 THEN R=25 
1420IF LEV=3 THEN R=5 
1430IF LEV=4 THEN R=2 
1440ENDPR0C 

1450REM************ ************ 
***** 

1451 REM************************ 
***** 

1 460DEFPR0CT I TLEB 

1 4 70PR INT : PR I NT : PR I NT : PR I NT : COL 
UUR2:PRINTTAB(2) ; "Enemy Ship 
" ; A* : C0L0UR7: PRINT: PRINTTAB (2) " 
Your Base "; B$: C0L0UR4: PRINT: 



Fire by pressing RETURN. You 
have Rye lives and when you score 100 
points you gain an extra life. There are 
four levels of difficulty, from easy to 
impossible. Laser Battle was written 
for the BBC B by C Fothergill of 
Gainsborough, Lines. 



PRINTTAB(2) ; "Base Le-ft Z 

Base Right 
X" 

1480PRINT:CULOUR5:PRINTTAB(2) ; " 
Fire RETURN" 

1490COLOUR6: PRINT: PRINTTAB (2) ; " 
To guide your 

missile use the 

right £ left 

cursor I 
eys" 
1500C0L0UR7 

1 5 1 OPR I NT : PR I NT : PR I NT TAB ( 2 ) " ( Pr 
ess any key) " 
1520REPEATUNTIL GET 
1530CLS 
1540ENDPR0C 

1541 REM************* *********** 
******* 

1550REM** ************* ********* 
******* 

1 560DEFPR0CGAMEEND 

1570CLS 

1 580PR I NT : PR I NT : PR I NT : PR I NT : PR I 

NT-: PR I NT : COLOUR 1 : PR I NTTAB ( 4 ) "GAM 
E 0VER":C0L0UR7 

1590*FX15,0 

1 600PR I NT : PR I NT : PR I NT : PR I NT : PR I 
NTTAB (1 ); "Another game? Y/N " 

1 6 1 OPR I NT : PR I NT : I NPUTTAB ( S ) 0* : I 
F LEFT*(Q*M>="Y" THEN RUN ELSE 
GOTO 1610 

1620ENDPR0C 

1 630DEFPR0CS0UND 

1640F4=1 

1 650SOUNDO ,-9,4,16: SOUNDO ,-10,4 
,16: SOUNDO, -12, 4, 16 

1660ENDPR0C 
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10 ON ERROR RROCerror 
20 MODE 6 

30 PROCinstructions 
40 VDU 23,240,0,0,56,60,0,0,6 
0,4,4 

50 VDU 23,231,0,24,60,60,24,0 
,0,0 

60 VDU 23,232,145,66,36,24,36 
,66, 145,4 

70 VDU 23,241,0,0,0,0,0,0,120 
, 1 04 

80 VDU 23,242,108,96,124,124, 
0,0,0 

90 VDU 23,243,1,1,0,0,0,124,1 
24 , 1 08 

100 VDU 23,244,108,108,108,109 
,0,0,0,0 

110 VDU 23,249,0,0,0,0,16,32,0 
,128 

120 VDU 23,250,128,0,0,0,0,0,0 
,0 

130 VDU 23,230,0,60,60,60,63,6 
3,0,0 

140 VDU 23,245,0,0,0,0,110,0,0 
tO 

150 VDU 23,246,0,0,0,56,56,0,0 

iO 

160 VDU 23,247,0,2,0,0,0,0,0,0 

170 VDU 23,248,0,0,0,0,0,0,64, 


180 VDU 23,251,0,0,0,0,0,0,0,1 
7 

190 VDU 23,252,18,28,0,0,0,0,0 
,0 

200 VDU 23,253,0,0,0,0,0,0,128 
,0 

210 HIHIT-0 

220 REPEAT 

230 MODE 2 

240 VDU 23;8202;0;0j0; 

250 QCOL 0,134:CL6 

260 COLOUR 132: COLOUR 3 

270 PRINT TAB<0,0)SPC<20) 

280 PRINT TAB < 0,1)" CLAY PI GEO 
N SHOOT . M ; SPC ( 20-POS ) 

290 PRINT TAB<0,2)SPC<20) 

300 VDU 5 

310 GC0L0,2 

320 MOVE 0,0: MOVE 1280,0: PLOT 
85, 0,250: PLOT 85,1280,250 

330 VDU 4: COLOUR 131: COLOUR O: 
PRINT TAB (5,27) "HI-HITSr " ; HIHIT; 
TAB (12,29) "LEFT: 10" ; TAB ( 1 , 29) "HI 
T:0" :VDU 5 

340 MOVE 100,300:GC0L0, 1 i VDU 2 
40 

350 MOVE 100,300:GCQL0,5:VDU 2 
46 

360 MOVE 100,300:GCOLO,3:VDU 2 
51 

370 MOVE 100,300:BC0L0,4lVDU 2 
41 

380 MOVE 100,270:GC0L0,4:VDU 2 
42 

390 MOVE 100,270: GCOLO, 3: VDU 2 
52 

400 MOVE 100,270: GCOLO, O: VDU 2 
43 

410 MOVE 100,270: GCOLO, 5: VDU 2 
47 

420 MOVE 100,252:GCOLO,0:VDU 2 
44 

430 MOVE 100,2521 GCOLO, 7: VDU 2 
45 

440 MOVE 135, 300: GCOLO, 0: VDU 2 
49 

450 MOVE 135,300:GC0L0,5:VDU 2 
48 

460 MOVE 135, 300i GCOLO, 2 I VDU 2 
53 

470 MOVE 135,270: GCOLO, 0: VDU 2 
50 

480 MOVE 700,270: GCOLO, O: VDU 2 
30 

490 HIT=0 

500 FOR A=l TO 10 

510 VDU 4: COLOUR 134: COLOUR 1: 
PRINT TAB (2,5) "PULL WHEN READY" 

520 REPEAT UNTIL GET=32 

530 SOUND 0,-15,110,2 

540 VDU 4: COLOUR 134: COLOUR 1: 




BRIAN BUDD of Guildford, Sur- 
rey has devised an entertaining 
armchair version of the sport of 
clay pigeon shooting. Launch your 
pigeon with the space bar, then fire at it 
using SHIFT. The number of hits you 
have scored, the latest hi-score and the 
number of shots you have remaining 
will be shown at the bottom of the 
screen. 

The game is not so simple as it 
sounds, as each pigeon you release rises 
at a different speed. Pigeon Shoot was 
written for the BBC B. 
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670 IF BY>«900 THEN finish=TRU 

680 UNTIL finish=TRUE 

690 MOVE 700,CY:GC0L0,6: VDU 23 

1 

700 MOVE 170,270: MOVE 1280,920 
:GCOL0,6:PLOT 85,170,920 

710 NEXT A 

720 VDU 4: COLOUR 134: COLOUR 4 

730 PRINT TAB(5,7) "GAME OVER" 

740 IF HIT>HIHIT THEN PRINT TA 
BU ,9) "Congratulations! ";TAB(0,1 
0> M You have set a Hi gh. " : HIHIT=H 
IT: PROCthemetune 

750 PRINT TAB(0, 13) "Press SPAC 
E to play. " 

760 REPEAT UNTIL GET=32 

770 UNTIL 

780 END 

790 DEF PROCcheck 

800 IF BY<=CY AND BY>=CY-30 TH 
EN PROChit 

810 ENDPROC 



00 



820 DEF PROChit 

830 HIT=HIT+1 

840 MOVE 700,CY:GC0L0,1:VDU 23 

850 SOUND 0,-15,151,7 

860 fimsh=TRUE 

870 T I ME=0: REPEAT UNTIL TIME=1 

i 

880 MOVE 700,CY:GC0L0,6sVDU 23 



890 

PRINT 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1 000 

1010 

1020 



VDU 4:C0LOUR 131:C0L0UR 0: 

TAB (1,29) "HIT: ";HIT:VDU 5 

ENDPROC 

DEF PROCthemetune 



SOUND 3,-10,97,4 
SOUND 3,-11 ,21 ,4 
SOUND 3,-12,121,4 
SOUND 3,-13,81,4 
SOUND 3,-14,97,4 
SOUND 3,-15,109,4 
SOUND 3,-14,97,4 
SOUND 3,-12,81,4 
ENDPROC 

DEF PROCi nstruct i ons 
VDU 19,0,4,0,0,0 
1030 PRINT TAB (8,0) "###******** 

1040 PRINT TAB (8,1)"* Clay Pige 
on Shoot *" 

1050 PRINT TAB(8,2)"» By Bria 
n Budd #" 

1060 PRINT TAB(8, 3) "###****»*** 

1070 PRINT TAB ( 12, 4) "I nstruct io 
ns" 

1080 PRINT" Your rifle is ai 

med at the sky, your clay pigeo 
n launcher is loaded with 10 cl 
ay pigeons, all you have to do is 
launch a clay pigeon and s 
hoot i t down. " 

1090 PRINT" BUT, the clay page 

ons -fly up into the air at diff 
erent speeds ,maki ng it a lit 

tie more difficult." 

1100 PRINT" At the bottom of 

the screen on the left i s th 

e number of clay pigeons you ha 
ve hit, on the right is the numbe 
r of clay pigeons 1 ef t . You only 

have one shot at each clay 

pi geon . " 

1110 PRINT'" Press ";: COLOUR 

129:C0L0UR 0: PRINT"SPACE" ; : COLO 
UR 128:C0L0UR liPRINT" for more 
instructions. " ; 

1120 PROCthemetune 

1130 REPEAT UNTIL GET=32 

1140 CLS 

TAB(8,0) "**#*»**#**# 



TAB(8,1) "* Clay Pi ge 
TAB (8,2) "# By Bria 
TAB(8,3) "*#****###** 



1150 PRINT 
****##»*#*" 

1160 PRINT 
on Shoot *" 

1170 PRINT 
n Budd *" 

1 180 PRINT 

1190 PRINT TAB(15,5)"Keys:-" 

1200 PRINT ;: COLOUR 129: COL 

OUR 0:PRINT" SPACE ";:C0L0UR 128 
:C0L0UR liPRINT" to launch a cla 
y pigeon. (PULL! ) " 

1210 PRINT ';:C0L0UR 129:C0L 

OUR 0: PRINT" SHIFT ";: COLOUR 128 
:C0L0UR 1:PRINT" to fire your ri 
f le. " 

1220 PRINT'"' Press ";: COLOUR 



129: COLOUR 0: PRINT" SPACE 



:C0L 



OUR 128: COLOUR liPRINT" to play. 



II 



1230 REPEAT UNTIL GET=32 

1240 ENDPROC 

1250 DEF PROCerror 

1260 IF ERR- 17 THEN RUN 

1270 VDU 4 

1280 CLS 

1290 COLOUR 3 

1300 REPORT: PRINT" at line " ; ER 

t 

1310 END 
1320 ENDPROC 
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K'REPEATUNl ILGET=32 

20REM"GH0ST2" 

SODIM SKXXUO) ,SKY7.(10) ,G*(3) 
,N17.(8) ,D17.<8) ,N27. (15) ,D27.(15) 

35DIMH* (4) :H»(1 ) =CHR*233: H* (2 
) -CHR* 224: H* ( 3 ) =CHR*234 : H* < 4 > =CH 
Rti.224 

40MUDE1 : VDU23; 8202; O; 0; O; 

50PR0Cchr:PRINTTAB(12,16) ;S*; 
TAB<15 f 17>"« 100 POINTS" ;TAB<11, 
23) ;B*;TAB<15,23) "= 1000 POINTS" 

60H7.=0:HS7,=0 

70F0R I X-OTO 1 280 : PLGT69 ,17., RND 
(160) +832: NEXT 

80PRINTTAB<12,13) "REPENT SINN 
ER ! " 

90F0R I V.= 1 2T0 1 264STEP 1 6 : MOVE 1 7. 
, : GCOLO , 2 : PLOT 1 , , 64 : NEX T : MOVEO 
, 8 : DRAW 1 280 , 8 : MOVE 1 280 , 56 : DRAWO , 
56 

1 OOFOR I ■/.= 1 2T0 1 264STEP 1 6 : MOVE 1 7. 
, 000: GCOLO , 2 : PLOT 1,0, 32 : NEXT : MOV 
I , 804 : DRAW 1 280 , 804 : MOVE 1 280 , 824 
: DRAWO, 824 

UOPROCtune 

1 20REPEAT 

130LVX=3a «cX»Ol SC7.=0: D7.=40: H7.= 
Q 

140U7.=0: c7.=0: zap7.='">: LVL7.= 1 

150REPEAT 

160PR0Cinit 

170PR0Ctomb 

180X7.=640:Y7.=512:C*=" + ":GC0L4, 
: MOVE X7. , Y7. : PR I NTC* 

1 90REPE AT 

200PR0Cplay 

2 1 OUNT I LV7.= 1 0RH7. >- 1 00RSPY7.< =96 

220F0R I '/.= 1 T03 : VDU 19,17., RND ( 7 ) ; 
0; :NEXT 

OMOVESPX V. , SPY7. : GC0L3 , 2 : PR I NT 
old* 

240IFH7.= 10D7.=D7.--10: H7.=0: PR0C1 e 
vel 

250 1 FD7. < = 1 0D7.= 1 

260 1 FSPY7.< =96PR0Cr ebound 

270UNTIL LV7.=0 

280PR0Cend 

290UNTIL0 

300REM"=^INIT 
■ lonr.FPROCinit 

3 1 5S0UND 1 , 1 , 1 50 , 2 

320GC0L0, 1 : FORT7.=0TO64OSTEP4: M 
0VET7. , 68 : PLOT 1,0, 728 : MOVE 1 280-T7. 
, 68 : PLOT 1,0, 728 : NE X T : SOUNDO ,2,4, 
1 

330VDU4 : COL0UR3 : PR I NTT AS (16,10 
) "LEVEL ";LVL7.:PRINTTAB<13, 12) "H 
iSCORE 000 ";TAB<21,12) ;HS7.:F0R 
T=MT03000:NEXT 

340VDU24,0;68; 1279; 796; : CLG: VD 
LI 26 

350ol d*=G* ( 1 ) : VDU4 : bat7.= 1 : b>: 7.= 
0:by7.=0 

360VDU20 : COLOUR 1 : PR I NT TAB (14,0 
) "SCORE ";sc7.;" " ; TAB (0,0) ; "L 
IVES ";LV7.;TAB(32,0)"HITS ";H7.;" 

I* 

370VDU5:f7.=0 
380M7.=24: V7.=0 

390F0R 1 7.= 1 T03 : VDU 19,17., RND ( 7 ) ; 
0; :NEXT 



. ,—.cr »"ld« *nCC OCC" ~ « 



4*.)UVDU23,^^^, 
55,255,255,255 

4 1 0VDU23 , 254 , 60 , 60 , 60 , 255 , 255 , 
60 , 60 , 60 

420T$=CHR*2554 CHR*8+CHR* 1 1 +CHR 
*254+CHR*8+CHR* 1 O+CHR* 1 0+CHR*255 

430SPX7.=RND ( 1 1 84 ) : SPY7.=960 : GCO 
L3 , 2 : M0VESPX7. , SPY7. : PR I NTG* ( 1 ) 

440ENDPR0C 

450REM"==PLAY 

460DEFPR0Cplay 

470PR0Ckeys 

4B0E7.=RND(D7.) : IFE7.*=2PR0Cskel 

490e7.=RND(130> : IFe7.=2PR0Cbat : + 
2=1 

500IFf7.= lg7.=RND<60) : IFg7.=3PR0C 
bat:f"/.=0:g"/.=0 

510ENDPROC 

520REM"==KEYS 

530DEFPR0Ckeys 

540 1 FVX- 1 0RH7. >» 1 00RSPY7.< =96END 
PROC 

550 1 F I NKEY ( -98 ) PROCm ( -M7. ,0) 

560 1 F I NKEY ( -67 ) PROCm ( M7. ,0) 

570 1 F I NKEY ( -73 > PROCm ( , M7. ) 

580IFINKEY (-105) PROCm (0,-M7.) 

590 1 F I NKEY ( -99 ) PROC-f 

6O0IFINKEY(-74)PR0Csz 

6 1 O I F I NKEY ( -2 ) REPEATUNT I L I NKEY 
(-65) 

620ENDPR0C 

630REM"—M0VE 

64ODEFPR0Cm <x7. , y7.) 

650IFX7.+x7->12480RX7.+x7.<00RY7.+y 
7-<320RY7.+y7.>960ENDPRQC 

660GC0L4 , : MOVE X 7. , Y7. : PR I NTC* 

670X7.= X7.+x7.:Y7.=Y7.+y7. 

680GC0L4,0:M0VEX7.,Y7.:PRINTC* 

690ENDPR0C 

7OOREM"==T0MBS 

710DEFPR0Ctomb 

7^0F*/.^0 

730F0R 1 7.=32T0 1 248STEP 1 28 

740F7.= ( F7.+ 1 ) MOD 1 1 

750TY7.=RND (17) #32+192 

760SKX 7. ( F7. ) - I '/. : SKY"/. ( F7. ) =TY7. 
70M0VE 1 7. , T Y7. : GCOLO , 1 : PR I NTT* 

730A7.=RND (1200) +32: B7.=RND (640) 
+ 1 28 : I FPO I NT ( A7.+ 1 6 , B7.-48 ) < > 1 MOVE 

A*/.,i'7.:ii-iNi rr 

790NEXT 

sooENDpnoc 

U10KEM" SI I I I rNGTON 
h.'miji i pROCskel 

04O1 r V% 1 ORI 17. .-. - 1 OORSPYSK =96G0T 
(17 I ■» 

HMHI SPYV. 76G0TD710 
lif'.'H ROCspool 
li/i»J'R(M;l eys 
800K7. RND ( LO) 

H9oB0HND2,4,S 1 1 

V.h.MOVI SF- X7. (R7.) ,SI Y7.CR7.) :GC0L3 
, Iri-RIMI r*cPR0Ckeys:M0VESKXX<R7.) 
,NI V7.(R7.) :GCUL3, J: PRINTS* 

9J0: 

920ENDPR0C 

9 (»|.| ri"==FIRE! • 

740DEFPR0C* 

9501 OC ALT 

960S0UND3, 5, 100,1 
970M0VE640,0: GC0L4 ,0: DRAWX7.+ 16 



, Y7. 1 6: F ORT= 1 T060 : NEXT : DRAW640 , 
VSOPROChit 
990ENDPR0C 

1000REM"==HIT? 

lOlODEFPROChit 

1 020 1 FPO I NT ( X7,+8 , Y7.-8 ) = 1 PROCr eb 
ound.-ENDPROC 

1030F0RJ7.= 1T010 

1040IFX7.>=SKX7. (J7.)-24ANDX7.<=SKX 
7. ( J7.) +32ANDY7.<=SKY7. ( J7.) +48ANDY7.> 
=SKY7.(J7.)-48ANDP0INT(SKX7.(J7.) , SK 
Y7. (J7.) )^lPR0Crebound:G0T01080 
v 1050IFX7.=SKX7. <J7.) ANDY7.=SKY7. ( J'/.) 
ANDPO I NT ( X7. , Y7. ) = 1 PROCr ebound : GOT 
01080 

1 060 1 F X 7. >=SK X 7. ( J 7. ) -24 AND X 7. < =SK X 
7. ( J7.) +32ANDY7.<=SKY7. ( J7.) +16ANDY7.> 
=SKY7. ( JX) -64ANDP0 INT ( X7. , Y7. ) <> 1 MO 
VESKX7. ( J7. ) , SK Y7. ( J7. ) : GC0L3 , 3 : PRIN 



TS*: SOUND 1 ,1 



w, 



KY7.(J7.) 

I >f > , 



gcol; 



1 : M0VESKX7. ( J 7. ) , S 
PRINTT*:PROCsc(l 
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1070IFbat7.=0: IFX7..>=bx7.ANDX7.< = b>; 
7.+32ANDY7.<=by7. + 16ANDY7.>=by7.-8S0U 
ND 1 , 3 , 200 , 6: MOVEbx 7. , by7. : GC0L3 , 2 : 
PR I NTB* : H7.=H7.- 1 : PROCsc < 1 000 ) : bat 
7.= 1 : bx7.=4000: GOTO 1080 

1080NEXT 

J 090ENDPR0C 

1100REM"==SCORE 

1 1 lODEFPROCsc (SC7.) 

1 120sc7.=sc7.+SC7. 

1 130H7.= (H7.+ 1 )M0D11 

1 1 40VDU4 : PR I IMTTAB ( 20 , ) ; sc7. ; TAB 
(37,0) ;H7.: VDU5 

1150ENDPR0C 

1160REM"==REBOUND. . . AARRR • ! 

1 170DEFPRQCr t 'bound 

1 1 80S0UND0 ,2,4,1: LV7,=LV7.- 1 

1 190V7.=- 1 : VDU 1 9 , , 1 5; 0; : *FX9 , 2 

i20o*rxio,2 

1 2 1 OFORT « 1 T02000 : NEX T : VDU 19,0,0 
;0; 
1220ENDPR0C 
1230REM"==END 
1240DEFPR0Cend 




AUL WILLIAMS of Bury, Lan- 1 
cashire earns £30 for the first of 
our Star Programs. Written for 
the BBC B, this exciting and chilling 
game, Ghost Hunter, has you chasing 
the skeletons which have risen unbid- 
den from their coffins in the graveyard. 
You can despatch them by placing a 
cross over your target and pressing the 
fire button but beware of the ghoul 
which creeps stealthily down the 
screen. 

If it reaches the fence at the bottom, 
or if you bump into a tombstone in the 
dark, you will lose one of your three 
lives. When you have eliminated 10 
skeletons you will find yourself on a 
new and even spookier screen. 

Use the Z and X keys to move left 
and right, * and / to move up and down, 
and the space bar to fire. Pressing RE- 
TURN allows you to super-zap the 
ghoul back to where it started but you 
can do that only three times per game. 




1 250IFsc7.>HS7.HS7.^sc7. 

1260*FX15,0 

1270VDU4:VDU24,0;68; 1279;796; :C 
LG:PRINTTAB(15, 14) "GAME OVER";TA 
B(6,0) "0"; TAB (10, 20) "Press SPACE 

to play" ; :REPEATUNTILGET=32 

1280ENDPR0C 

1290REM"==SPQ0K 

1 300DEFPR0Cspook 

1 3 1 0MQVESPX7. , SPY7. : GCQL3 , 2 : PR I NT 
old* 

1 320U7.= ( UV.+ 1 ) M0D3+ 1 

1 330SPY7.=SPY7.-32: IFSPX7->640SPX7. 
=SPX7.-RND(100) 

1340IFSPX7.<640SPX7.=SPX7.+RND ( lOO 
) 

1 350M0VESPX7. , SPY7. : GC0L3 , 2 : PR I NT 
G*(U7.) :old*=G* <U7.) 

1360ENDPR0C 

1370REM"=;=SUPER"ZAP! ! ! 

1380DEFPR0CS2 

13?01F2ap7.^3ENDPR0C 

1 400S0UND2 , 2 , 1 30 , 2 : M0VE640 , : GC 
0L4 , 0: DRAWSPX7.+48 , SPY7.-48 

1410GC0L3,2 

1420F0RT7,= 1T020:M0VESPX7.,SPY7.:P 
RINTold* 

1430NEXT:M0VESPX7.,SPY7.:PRINTold 

1 440GC0L4 , 0: M0VE640, 0: DRAWSPX7.+ 
48,SPY7.-48 

1450SPX7.=RND ( 1 184) : SPY7.=960: MOV 
ESPX7.,SPY7.:GC0L3,2:PRINTold* 

1460::ap7. = zap7.+ l 

1470ENDPR0C 

1480REM"==TUNE 

1490DEFPR0Ctune 

1 500RESTORE i 560 : FOR 1 7.= 1 T07 : READ 
N17. (17.) , D17. (17.) :NEXT 

15l0i7.-2 

1 520F0RK7.= 1 TO 1 5 : READN27. ( K7. ) , D27. 
(K7.) :NEXT:F0RJ7.= 1T015 

1530IFJ7.<9S0UND1 ,-1 ,N1 7. ( J7.) +75, 
D 1 7. < J7. ) * i ■/. : SOUNDO , - 1 5 , 3 , D 1 7. ( J 7. > 
#i7. 

1 5350= J7.M0D4 + 1 : PR I NT T AB ( 1 2 , 1 & ) H 
* (O) 

1 540S0UND2 ,-12, N27. ( J 7. ) - 1 6 , D27. ( J 
7. > * i 7. : S0UND3 , - 1 2 , N27. ( J 7. ) +32 , D27. < 
J7.)*i7.:NEXT 

i 550ENDPR0C 

1 560DATA8 1,6, 93, 6, 89, 6, 77, 6, 81, 
6,65,6,61,20 

1 570DATA8 1 , 4 , 89 , 2 , 93 , 2 , 89 , 2 , 8 1 , 
2,77,4,81,2,89,4 

1 580DATA6 1 , 2 , 8 1 , 4 , 89 , 2 , 93 , 2 , 89 , 
2,81,2,77,20 

1590REM"— BAT. . . EEK ! ! 

1600DEFPR0Cbat 

16101 Fbat 7.= 1 : bx 7.=RND ( 1 1 00) +32: b 

y7.=RND(700) +96: SOUND 1 , 1 ,240, 1 : MO 

VEbxX t by7.:GC0L3,2:PRINTB*:b«tX»0 
: ENDPROC 

1620IFbat7.=0M0VEbx7.,by7.:GC0L3,2 
: PRINTS*: bat 7-= 1 : ENDPROC 

1630REM" --LEVEL 

1640DEFPR0Clevel 

1 650LVL7.=LVL7.+ 1 

1660IFLVL7.^30R LVL7,=5LV7.=LV7.+ 1 : 
VDU4:PRINTTAB(6,0) ;LV7.:S0UND1 , 1 , 
150,2 

167OENDPR0C 

1675REM"==CHR* 

1680DEFPR0Cchr 

1690S*=CHR*224+CHR*8+CHR*8+CHR* 
10+CHR*228+CHR*225+CHR*227+CHR*8 
+CHR*8+CHR*8+CHR*10+CHR*227+CHR* 
226+CHR*228+CHR*8+CHR*8+CHR* 1 0+C 
HR*229+CHR*8+CHR* 1 0+ CHR* 230 

17008* ( 1 ) =CHR*235+CHR*236+CHR*2 
37+STR ING* (3, CHR*S)+CHR*10+CHR*2 
38+CHR*239+CHR*240+STR I NG* ( 2 , CHR 
*B> +CHR*10+CHR*241 

1 7 1 OG* < 2 ) =CHR*235+CHR*236+CHR*2 
37+STR I NG* ( 3 , CHR*8 ) +CHR* 1 0+CHR*2 
38+CHR*239+CHR*240+STR I NG* ( 2 , CHR 
*8> +CHR*10+CHR*242 

1 720G* ( 3 > =CHR*235+CHR*236+CHR*2 
37+STR I NG* ( 3 , CHR*8 ) +CHR* 1 0+CHR*2 
38+CHR*239+CHR*240+STRING* (2, CHR 
*8) +CHR*10+CHR*243: B*=CHR*231+CH 
R*232: ENDPROC 
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10 

20 
30 
40 
50 



REM**TICTACT0E«* 

REM*#BY PAUL EARWAKER** 

#TV255 

MODE'/ 

PR 1 NT TAB (10,12) CUR* 1 4 1 " T I C 
TftCTOE" 

60 PR I NTTAB (10,13) CHR* 1 4 1 " T I C 
T AC TOE" 

70 PRINTTAB(I0,i9)"PRESS SPAC 
E TO PLAY" 



SO 


IF INKEY (-99) THEN GOTO 90 


ELSE 


GOTO 80 


90 


M0DE1 


1 00 


VDU5 


110 


G7.=9:BX"/.=200: BY7.=950:RX7.=S 


00:RYX=950 


120 


*F X 1 5 , 


130 


VDU 19,2,6,0,0,0 


140 


VDU 23 , 245 , , , 60 , 60 , 60 , 60 


, o , 
1 50 


VDU 23;8202;0;0;0; 


160 


PROCGRID 


1 70 


REPEAT 


180 


PROCBLUE 


190 


PROCRED 


200 


UNTIL B'/.-O , 


210 


CLS 


220 


»FX15,0 


230 


VDU 4 


240 


COLOUR 3:INPUTTAB(iO,12>"A 


DRAW- 


ANOTHER GAME?(Y/N>" 


250 


IF BET*="Y" OR GETf="y"THE 


N RUN 


ELSE GOTO 250 


260 


END 


270 


DEFPROCGRID 


280 


GCOLO , 3 ■ 


290 


FOR X=200 TO 1100 STEP 300 


300 


MOVE X,30 


310 


DRAW X,925 


320 


NEXT 


330 


FOR Y=30 TO 950 STEP 300 


340 


MOVE 200, Y 


350 


DRAW 1100,Y 


360 


NEXT 


370 


ENDPRDC 


3 GO 


DEFPROCBLUE 


390 


REPEAT 


400 


IF INKEY(-26) AND BX7.>200 



BXX=BXX-300: X7.= INKEY (30) 

410 IF INKEY(-122) AND BX7.<800 
BXX=BXX+300 : XX- INKEY ( 30 ) 

420 IF INKEY (-58) AND BY7.<950 
BYX=BYX+300: X7-= INKEY (30) 



1NI= 



EYC-42) 



AND BYX> 



o. 



iO 



430 IF 
BY7.=BY7.-300: X7-=INKEY (30) 

440 MOVE BX/1+10,BY7.-25:GC0L0,2 



VDU 2 
450 
460 
4 70 
4 HO 
490 
500 
510 



45,127 



UNTIL INKEY (-97) 

PR0CANALISE1 
ENDPRDC 
DFFPROCRED 
IF GX-0 ENDPROC 
REPEAT 
IF INKEY (-26) AND RX7.>200 
RX7.-RX7.- 300: XX- INKEY (30) 

520 IF INKEY (122) AND RXX<B00 
RX7.-RX7. + 300: X7.-INKEY (30) 

530 IF INKEY (-58) AND RYX<950 
RYX-RYX+3001 XX- INKEY (30) 

540 IF INKEY (-42) AND RY7.>350 
RY7.=RY7.-300: X7." INKEY (30) 

550 MOVE RX7.+ 10,RY7.-25: GCOLO, 1 
: VDU 245 , 1 27 

560 UNTIL INKEY (-97) 

570 PR0CANALISE2 

580 ENDPROC 

590 DEFPR0CANALISE1 

600 IF POINT (BX7.+ 150,BY7.-150) = 
THEN PR0CFILL1:G7.=G7.-1:PR0CCHE 
CK1: PROCRED ELSE SOUND 1,-10,200 
, 1 : XX" INKEY (20) : PROCBLUE 

610 ENDPROC 

620 DEFPR0CANALISE2 

630 IF POINT (RXX+150,RYX-i50>= 
THEN PROCFILL2:GX=G*/.-l:PR0CCHE 
CK2: PROCBLUE ELSE SOUND 1,-10,20 
0,lsXX-INKEY<20) : PROCRED 

640 ENDPROC 

650 DEFPR0CFILL1 

660 GCOLO, 2 

670 MOVE BX7.,BY7.-320 

680 FOR C=BX7. TO BX7.+300 STEP 
4 



PAUL EARWAKER of Ipswich, 
Suffolk devised this version of 
Noughts and Crosses for the 
BBC B. 

Blue always starts and moves the blue- 
cursor on to a chosen square; pressing 
TAB will fill in that square. Red moves 
the red cursor and fills the square in the 
same way. A continuous line of three 
squares, either vertically, horizontally 
or diagonally, wins the game. 
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690 
700 
710 
720 
730 
740 



C,BY7.-320 

CBYX-20 



NT (950,500) =2 AND POINT < 950 , 200) 



MOVE 

DRAW 

NEXT 

PROCGRID 

ENDPROC 

DEFPR0CFILL2 
750GC0L0, 1 
760M0VE RXX,RY7.-320 
770F0R D=RXX TO RX5C+300 STEP 4 NT (650,500) =2 AND POINT (950 ,500) 

^2 THEN PROCW INNER! ELSE GOTO 89 



=2 THEN PR0CWINNER1 ELSE GOTO 87 


870IF POINT (350,800) =2 AND POI 
NT (650,800) =2 AND POINT (950 ,800) 



=2 THEN 


880 IF 



PROCW INNER! ELSE GOTO 83 



POINT (350, 500) =2 AND POI 



780M0VE D,RY'/.-320 

790DRAW D,RV/.-20 

800NEXT 

810PR0CGRID 

S20ENDPR0C 

830 DEFPR0CCHECK1 

840 IF POINT (350,800)= 
NT (350,500) =2 AND 
=2 THEN PR0CWINNER1 



AND POI 

POINT (350, 200) 

ELSE GOTO 85 



O 



850IF P0INT(650,200)=2 AND POI 
NT<63O,500)=2 AND POINT (650,800) 
=2 THEN PROCW INNER! ELSE GOTO 86 



O 



860 IF POINT (950,800) =2 AND POI 





890 IF POINT (950,200) =2 AND POI 
NT (650,200) =2 AND POINT (350 ,200) 
=2 THEN PROCW INNER! ELSE GOTO 90 


900 IF POINT (350, BOO) =2 AND POI 
NT (650,500) =2 AND POINT (950 , 200) 
=2 THEN PROCW INNER! ELSE GOTO 91 
O 

910IF POINT (950,800) =2 AND POI 
NT (650,500) =2 AND POINT (350,200) 
=2 IHEN PR0CWINNER1 ELSE GOTO 92 
O 

920ENDPR0C 

930DEFPR0CCHECK2 

940IF POINT (350,800)=! AND POI 
NT<350,500)=1 AND POINT (350,200) 
=1 THEN PR0CWINNER2 ELSE GOTO 95 


950 IF POINT (650,200) =1 AND POI 
NT (650,500)=1 AND POINT (650,800) 
=1 THEN PR0CWINNER2 ELSE GOTO 96 


960 IF POINT (950,800) =1 AND POI 
NT (950,500) =1 AND PO INT (950 , 200) 
=1 THEN PR0CWINNER2 ELSE GOTO 97 


970 IF POINT (350,800)=! AND POI 
NT (650,800)=! AND POINT (950 , 800) 
=1 THEN PR0CWINNER2 ELSE GOTO 98 
O 

980IF POINT (350, 500) =1 AND POI 
NT(650,500)=1 AND POINT (950,500) 
=1 THEN PR0CWINNER2 ELSE GOTO 99 


990IF POINT (950,200) -1 AND POI 
NT (650,200) =1 AND POINT (350, 200) 
=1 THEN PR0CWINNER2 ELSE GOTO 10 
00 

1000 IF POINT (350,800) =1 AND POI 
NT (650,500)=1 AND POINT (950,200) 
=1 THEN PR0CWINNER2 ELSE GOTO 10 
10 

1010IF P0INT(950,800)=1 AND POI 
NT (650, 500) =1 AND POINT (350, 200) 
=1 THEN PR0CWINNER2 ELSE GOTO 10 
20 
1020 ENDPROC 
1030 DEFPR0CWINNER1 
1040 ENVELOPE 1,1,0,0,0,0,0,0,2 
0,-1,0,-1,80,40 
1050 CLS 
1060 *FX15,0 
1070 VDU4: COLOUR 2 

1080 PRINTTAB< 10,12) "BLUE WINS- 
WELL. DONE ! " 

1,1. 70 , 5 



SOUND 



1 , 1 , 90 , 1 



1 090 

1 1 00 

1110 

1 1 20 

1 1 30 
ME?(Y/N> " 

1140 IF GET*="Y" 
GOTO 1 1 40 



SOUND 
PRINT 
PR I NT 
INPUTTAB( 10, 14) "ANOTHER GA 



THEN RUN ELSE 



1150 ENDPROC 

DEFPROCW INNERI 



o, 



1 1 60 
1170 

-1 
1 100 
1 1 90 
1 200 
1210 



»0, 



ENVELOPE 1,1,0,0,0,0,0,0,2 

1 ,80,40 
CLS 

*FX15,0 
VDU4: COLOUR 
PRINTTABdO 



1 

12) "RED WINS-W 



ELL DONE 



SOUND 



1 220 

1 230 

1 240 

1 250 

1260 
ME?(Y/N) " 

1270 IF GET*=' 
GOTO 1270 

1280 ENDPROC 



1,70,5 

1,1,90,10 
PRINT 
PRINT 
INPUTTABdO, 14) "ANOTHER 



GA 



Y" THEN RUN ELSE 
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An entertaining, but thorough reference source 

with the most readable, comprehensive glossary 

you'll find anywhere. The Good Computing Book 

for Beginners is an essential A-Z of all the facts you 

need to know about computing — and none you 

don't! 

Whether you're brand new to computing, or an old 
hand keen to stay ahead, you'll score by keeping this 
classic, top-selling book within reach to use again and 

again. 

The author, Dennis Jarrett, is a successful journalist 

who was also founder editor of Which Computer? 

magazine — so his first edition quickly became a 

standard work. Now this new, substantially 

enlarged and revised edition covers the latest 

trends, terms and technology with the relevant facts 

— and ONLY the relevant facts — in plain English. 

Here's another fact you'll find fascinating: it will 

only cost you £2.95! 

Use the coupon below to get your copy right away 
— or buy it soon from your bookshop. It's the no- 
nonsense book you'll turn to again and again. 
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YOU ARE the pilot of a small 
aircraft which for some reason 
encounters a series of gates 
through which you must negotiate a 
passage to reach the far side of the 
screen. Each time you do that you will 
receive a bonus of 50 units of fuel. 

On your next trip the gates will be a 
little narrower and it will become in- 
creasingly difficult to stay in the air. If 
you fail to pass through a gate you lose 
40 units of fuel and if you run out of 
fuel you will suffer a horrible crash. Use 
Q and C to move your aircraft up and 
down. 

Air Passage was written for the 
BBC B by A P Wood of Winscombe, 
Avon. 





10 ON ERROR GOTO 1210 

20 MODE lsVDU 23; 8202; O; 0; 0; 

30 *FX 11,2 

40 *FX 12,2 

50 GOTO 330 

60 DEFPROCchars 

70 VDU 23,227,192,224,115,127 
,127,63,1,0 

80 VDU 23 , 228 , O , 240 , 249 , 253 , 1 
5,253,249,0 

90 PL*=CHR*(227)+CHR*<228> 
100 VDU 23,229,60,60,60,60,60, 
60,60,60 

110 VDU 23,230,34,34,148,82,0, 
25,93,255 

120 VDU 23,231,8,137,73,34,2,1 
6,156,255 

130 SP*=CHR*(230)+CHR*(231) 
140 ENDPROC 
150 DEFPROCsetup 
160 VDU 19,1,6,0,0,0 
170 COLOUR 1 

180 FOR A=8 TO 38 STEP 6 
190 H=RND<10>+6 
200 FOR B=l TO H 
210 PRINT TAB<A,B);CHR*<229) 
220 NEXT B 
230 FOR B=H TO H+SP 
240 PRINT TAB(A,B) ;" " 
250 NEXT B 

260 FOR B=H+SP TO 30 
270 PRINT TAB(A,B) ;CHR*<229) 
280 NEXT B,A , 

290 ENDPROC 
300 DEFPROCvars 
310 HE=10:FU=300:SC=0:SP=7 
320 ENDPROC 
330 PROCchars 
340 PROCvars 
350 PROCintro 
360 PROCsetup 
370 COLOUR 2 
380 VDU .19,3,3,0,0,0 
390 FOR D=l TO 37 
400 PROCcheck 
410 PRINT TAB(D,HE) ; PL* 
420 IF FUMOO THEN SOUND 0,-10 
,24,1 

430 PRINT TAB (6,0) ; "Fuel ";FU; 

II II 

440 FU=FU-1 

450 IF FUO-1 THEN PROCfuel 

460 IF FU<100 AND FU>50 THEN S 
OUND 1,-12,130,1 

470 IF FU<51 THEN SOUND 1,-12, 
1 60 , 1 

480 PRINT TAB (22,0) ; "Score " ; S 
C 

490 SC=SC+l 

500 Z$=INKEY$(0) :*FX 15,1 

510 T I ME=0: REPEAT UNTIL TIME=3 



*T 



ii 



520 PRINT TAB(D,HE);" 

530 IF Z*="Q" AND HE>3 THEN HE 
=HE-1:FU=FU-1 

540 IF Z*="C" AND HE<30 THEN H 
E=HE+1:FU=FU-1 

550 NEXT D 

560 FU»FU+50 

570 SP-SP-. 1 

580 GOTO 360 

590 DEFFROCcheck 

600 Xl=(32«D)+45 

610 Y1=<32»<32-HE) )-16 

620 IF P0INT(X1,Y1)=1 THEN SOU 
ND 0,-15, 22, 7:FU=FU-40 

630 ENDPROC 

640 DEFPROCfuel 

650 FOR L=HE TO 30 STEP 1 

660 SOUND 1,-15,20,1 

670 SOUND 1,-15,80,1 

680 SOUND 1,-15,60,1 

690 PRINT TAB<D,L-1);" " ; TAB ( 
D,L) ;PL* 

700 PRINT TAB (6,0);" -" 

710 SOUND 1,-15,20,1 

720 SOUND 1,-15,80,1 

730 SOUND 1,-15,60,1 

740 PRINT TAB(6,0) ; "Fuel O 

750 NEXT L 

760 PRINT TAB (D, 30) ; SP$ 

770 SOUND 0,-15,29,10 

780 SOUND 0,-15,28,10 

790 TIME=0: REPEAT UNTIL TIME=2 
00 

800 CLS: GOTO 330 

810 DEFPROCintro 

820 COLOUR 2 

830 PRINT TAB(9,1);PL*; " A I R 
BLOCK "jPL* 

840 PRINT * '" AS YOU SOAR THRO 
UGH THE SKIES IN YOUR" 

850 PRINT '"TRUSTY PLANE YOU E 
NCOUNTER A SERIES OF" 

860 PRINT '"GATES. YOU MUST FL 
Y THROUGH THE GATES" 

870 PRINT "AND REACH THE FAR 
SIDE OF THE SCREEN." 

880 PRINT '" EVERY TIME YOU DO 
THIS YOU WILL GET" 

890 PRINT "A BONUS 50 UNITS 
F FUEL BUT NEXT TIME" 



900 PRINT "YOU MEET THE GATES 
THE GAPS WILL BE A" 
910 PRINT '"BIT SMALLER. HOW L 
ONG CAN YOU KEEP IN" 

920 PRINT *"THE AIR ? IF YOU F 
AIL TO GO THROUGH A" 

930 PRINT '"GATE THEN YOU WILL 
STAY IN THE AIR BUT" 

940 PRINT "WILL LOSE 40 UNITS 
OF FUEL ! " 
950 PRINT '" WHEN YOUR FUEL GE 
TS LOW THEN YOU WILL" 

960 PRINT '"BE ALERTED BY A TO 
NE. " 

970 PRINT '" M ;PL*;" ANY 
KEY TO CONTINUE " ; PL* 
980 *FX 15,0 

990 IF INKEY*(0)="" THEN 990 
1000 CLS 

1010 PRINT TAB(9,1) ;FL*; " A I R 
BLOCK "| PL* 

1020 PRINT TAB (1, 5) ; "CHOOSE YOU 
R PLANE SPEED FROM 1 TO 5" 
1030 PRINT TAB(1,7);"(1 IS FAST 
AND 5 IS SLOW) " 
1040 *FX 15,0 
1050 A*=INKEY*(0) 
1060 IF A*="" THEN 1050 
1070 T=VAL(A*) 

1080 PRINT TAB (8, 13);" Q KEY I 
S UP" 

1090 PRINT TAB (8, 16);" C KEY I 
S DOWN" 

1100 T I ME=0: REPEAT UNTIL TIME=3 
00 
1110 CLS 

1120 A*=PL*+" GOOD LUCK 
"+PL* 
1130 FOR A=l TO LEN(A*) 
1140 PRINT TAB(8+A, 13) ;MID*(A*, 
A,l) 
1150 SOUND 1,-15,RND(20) ,1 
1160 TIME=0:REPEAT UNTIL TIME=5 
1170 NEXT A 

1180 T I ME=0: REPEAT UNTIL TIME=1 
00 
1190 CLS 
1200 ENDPROC 
1210 *FX 11,40 
1220 *FX 12,7 
1230 MODE 7: END 
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The BBC Micro is unbeatable when it comes to 
holding your attention. But when it comes to talking to the 
rest of the outside world it's virtually speechless. 
Until, that is, you speak to us. 

In which case you and your BBC could soon be 
accessing viewdata systems throughout the country. 
By simply linking your BBC into our purpose- 
designed communications and viewdata system 
you dramatically increase the capability of your 
micro. Allowing you to keep in touch with your 
friends. And to get answers within minutes to 
electronically mailed letters. You can even try 
your hand at the latest adventure games on 
Micronet 800 (as well as looking at the news, 
reviews, prices and best-buy information). 

In addition to all this, you will also be able 
to access Prestel. A vast database of news and 
information. Helping you to book tickets for your 
favourite concerts. Plan your road and rail trips. 
And even check the weather forecast before you go. 
Our communications and viewdata systems open 
up the world to you and your micro. And at a down- 
to-earth price -with systems starting from under £90. 

So, if you're keen to contact the outside world . . . 
simply contact us. 




APPROVED few use 

with tetecommuntcalion systems 

run by British Telecommunications 

m accordance with the conditions 

in the instructions for use. 



Prism Business Systems Ltd. 

Prism House, 18-29 Mora Street 
City Road, London EC1V 8BT 

Tel: 01-253 2277 




I Please send me further details of the Prism viewdata 
communications system for the BBC Micro. 

Name 



~i 




Prestel and the Prestel symbol are trademarks of British Telecommunications. 



10REM************** 
20REM* MAD CASTLE * 
30REM* BY * 
40REM* MARTIN * 
50REM* EARLE * 
60REM************** 
70VDU23 , 225 , O , 60 , 1 95 , 1 29 , 1 95 , 
60,0,0 

80VDU23 , 226 , 28 , 42 , 54 , 28 , 8 , 28 , 
127,93 

90VDU23 , 227 , 93 , 93 , 20 , 20 , 20 , 54 
, , 

1 00VDU23 , 228 , 6 , 9 , 57 , 94 , 220 , 1 56 
, 188, 184 

1 1 0VDU23 , 229 , 1 84 , 1 68 , 1 04 , 36 , 36 
,36,54,0 

1 20VDU23 , 230 , , O , O , 40 , 1 1 2 , 220 , 
248,62 

1 30VDU23 , 23 1 , 60 , 1 27 , 220 , 23 , 23 , 
55,39,207 

1 40VDU23 , 232 , 1 53 , 1 89 , 1 53 , 1 53 , 2, 
55,255,60,60 

1 50VDU23 , 233 , 60 , 60 , 36 , 36 , 36 , 36 
,36,1 02 

1 60VDU23 , 234 , O , 23 1 , 24 , 36 , O , , 

170VDU23, 235,0, 129, 195, 102, 24 , 
60 , 24 , 36 

1 80VDU23 , 236 ,40,112, 220 , 248 , 62 
,60,127,222 

1 90VDU23 , 237 , 1 6 , 56 , 56 , 1 24 , 56 , 5 
6,16,0 

200VDU23 , 238 , , , , , 1 92 , 1 93 , 2 
49,255 

2 1 0VDU23 , 239 , 255 , 1 29 , 1 29 , 1 29 , 1 
29,129,129,255 

220VDU23,240, 14, 14,30,56,56, 12 
4,116,228 

230VDU23 , 24 1 , 230 , 1 79 , 1 44 , 1 44 , 1 
52,192,0,0 

240ENVEL0PE1 ,2,-1 ,-1 ,-1 ,25,25, 
25 , 1 26 , , , - 1 26 , 1 26 , 1 26 

250ENVEL0PE2,2,4,4,4, 10, 10, 10, 
0,0,0,0,0,0 

260*FX9,5 

270*FX10,5 

280*FX11,0 

290DIMBX7. <2> , BY7. (2) :PROCRESET: 
SC7.=0 : H I 7.=0 : H I *= " " 

300M0DE6 : PROC X NSTRUCT I ONS 

310M0DE5:PR0CSH0W 

320M0DE5: VDU23; 8202; O; 0; 0; 

330FR0CSETUF: PROCLADDER: PROCBR 
I CKS : PROCCAGE : PR I NTTAB (XV., Y7. ) ; CH 
R*227; TAB < XV. , Y'/.- 1 > ; CHR*226 

340REPEAT : I FSX= 1 PROCS 1 : PROCDR : 
PROCBA: PROCMO: PROCS 1 : PROCBA 

350IFSX=2PR0CS2: PROCDR: PROCBA: 

PROCMO: PR0CS2; PROCBA 

360TFSX-3PROCS3: IFX"/.=9THENS0UN 

Dl ,2,30,60: PROCRE 

370UNTILL7.=0 

380PR0C3C0RE: PRINTTAB (1 ,23) ; "A 
MOTHER GAME (Y/N) " : REPEAT: A*=GET 
* : UNT I LA*=- " Y " ORA$= " N " : I FAf = " Y "PR 
OCRESET : SC7.=0 : GOT0320 

390M0DE6 

400*FX12,0 

4 1 OEND 

420DEFPR0CWT(T7.) 

430T 1 7-=T 1 ME : REPEAT : 1 FS%- 1 PROCS 
1 El SE IF S7.=2PR0GS2 EL SEIFSX-3P 
R0CS3 

440UNT I LT 1 ME >T 1 7.+T7. : ENDPROC 

450DEFPR0CSETUP 

460MOVE900 , : MOVE 1 279 , O : GCOLO , 
1 : PL0T85, 1279, 1023: M0VE9OO, 1023. ■ 
PL0TS5, 900,0 

470C0L0UR 1 : F0RA=0T0 1 : PR I NTTAB 
(A, 31) ; CHR* (225) ; : NEXT: PROCLADDE 
R: ENDPROC 

4 80 DEF PROCLADDER 

490MOVE640 , 32 : GCOLO ,3: DRAW704 , 
160:M0VE7O4,32: DRAW 768, 160 

500C=32 : F0RB=650T0704STEP 1 6 : C= 
C+32:M0VEB,C:DRAWB+64,C: NEXT: END 
PROC ' 

510DEFPR0CBRICKS 

520PRINTTAB( 12,26) ;CHR*225;CHR 
* 225 : F=26 : FORE- 1 1 T02STEP- 1 : PR I NT 
TAB (E,F) ; CHR*239: F=F-1 : NEXT: PR IN 
TTAB (0,17); CHR*225 ; CHR*225 

530C0L0UR3: PRINT TAB (1,16); CHR* 



gotbtc 



241; TAB(1 ,15) ; CHRf 240: COLOUR! : PR 
INTTAB(0, 10) ;CHR*225;CHR*225; " " 
:F0RG=3T013:PRINTTAB(G, 10) ; CHR*2 
25; : NEXT: ENDPROC 

54ODEFPR0CS1 

550C0L0UR3: IFL7,< >0G0T058O 

560*FX15,1 

570PRINTTAB(X7. ,Y7.) ; " "; TAB(X7. , 
Y7.-1);" ": ENDPROC 

580A*=INKEY*<0) : IFX7.= 10ANDA*=" 
Z "X7.=X7.-1 : PR I NTTAB ( X7-, Y7.) ; CHR*22 
7;" ";TAB<X7.,Y7.-1) ;CHR*226; " "sP 
ROCLADDER : PROCSC ( -2 > 

590IFA*="X"ANDX7.<12X7.= X7. + 1:PRI 
NTTAB(X7.-1 ,Y7.) ; " " ; CHR*227; TAB (X 
7--l,Y7.-l) ; " ";CHR*226s PROCSC (2) : 
IFX7.M0PR0GDEAD: PROCLADDER 

600 I FA*= " Z " ANDX 7. > 1 ANDX7.< > 1 0X7.= 
X7.-1:PRINTTAB(X7.,Y7.) ;CHR*227; " " 
;TAB(X7.,Y7.-1) ;CHR*226; " ": PROCSC 
(-2) 

6 1 1 F X7. > 1 0ANDS7.= 1 PROCDEAD 

620 IFA*="/"ANDX7.= 10PRINTTAB<X 
7.,Y7.) ; " ";TAB(X7.,Y7.-D ; " ": Y7.= 25 
: X7.=X7.+ 1 : S7.=2: PROCLADDER: PRINTTA 
B ( X 7. , Y7. ) ; CHR* 227 ; TAB ( X7. , Y7.- 1 ) ; CH 
R*226: PROCSC (4) 

630ENDPR0C 

640DEFPR0CS2 

650COLOUR3 

660A*=INKEY*(0) 

670 IFA*="Z"ANDX7.>2X7.=X7.-1:Y7.= 
Y7.-1:PRINTTAB(X7. + 1,Y7.-H) ; " " ; TAB 
(X7,+ 1,Y7.) ; " ";TAB(X7.,Y7.) ; CHR*227 
; TAB ( X7. , Y7-- 1 ) ; CHR*226: PROCSC ( -2) 
: IFX7.O2PR0CC 

6801 FA*= " X " ANDX7.< 1 1 X7.=X7,+ 1 : TA- 
Y7.+ 1: PR r NTTAB (X7.-1 , Y7.-1 ) ; " M ; TAB 
(X7.-1 ,Y7.~2) ; " "; TAB(X7.,Y7.) ; CHR*2 
27 ; TAB < X7. , Y7-- 1 ) ; CHR*226 : PROCSC ( 2 
) :PROCC: ENDPROC 

TTAB(X7.,Y7.+ 1) ; " " ; TAB ( X7. , Y7.) ; CHR 
*227; TAB ( X7. , Y7.- 1 ) ; CHR*226: F0RE7-- 
1T01500: NEXT: PROCBA: F0RE7.=1T0150 
O: NEXT: PROCBA: Y7.=Y7.+ 1: PRINTTAB <X 
7.,Y7.-1);" ";TAB<X7.,Y7.-2) ; " " ; TAB 
( X7. , V7. ) ; CHR*227; TAB ( X7. , Y7.- 1 ) ; CHR 
*226: PROCC 

700IFA*="/"ANDX7.=2S7.=3:Y7.--=9:PR 
INTTAB(2,16); " " ; TAB (2, 15) ; " ";T 
AB(X7.,Y7.) ;CHR*227;TAB(X7.,Y7.-i) ;C 
HR*226 : PROCSC ( 20 ) 

710ENDPR0C 

720DEFPR0CS3 

730Y7.=9: A*=INKEY*<0> :C0L0UR3: I 
FA*="X"ANDX7.<' 13X7.=X7. + 1 : PRINTTAB ( 



THE WICKED Dr Frankenstein 
has imprisoned your friend at 
the top of his castle and you are 
determined to go to the rescue, but your 
way is fraught with hazards. First there 
is Dracula, who swoops out of thin air. 
If you are beneath him when he lands, 
or just past him, you lose a life. You 
must also dodge the prehistoric monster 
which lurks in the moat and jump over 
the barrels which roll down the stairs. 
Use the Z and X keys to move left 
and right, and / to jump over a barrel or 
go up the stairs. 

Gothic Horror was written for the 
Electron by Martin Earle of Goole, 
North Humberside. 



X7.~1,Y7.) ; " ";CHR*227;TAB(X7.-1,Y7. 
-1) ; " ";CHR*226 

740IFA*="Z"ANDX7.>0X7.= X7.-1:PRIN 
TTAB(X7.+ 1 ,Y7.) ;CHR*227; " ";TAB(X7. 
+ 1,Y7.-1) ;CHR*226; " " 

750ENDPR0C 

760DEFPR0CDR 

770VDU 19,2,15,0,0,0: C0L0UR2 : PR 
INTTAB(7,27) ; CHR*234: PROCWT (20) s 
PRINTTAB (7, 27) ; " "; TAB (7, 28) ; CHR 
*235: PROCWT (20) : PRINTTAB <7 ,28) ; " 
" : PR I NTTAB ( 7 , 30 > ; CHR*229 ; TAB ( 7 , 
29) ;CHR*228 

780 1 F X 7.=7ANDS7.= 1 OR X 7.= SANDS 7.= 1 P 
ROCDEAD: ENDPROC 

790PROCWT(30):PRINTTAB(7,30) ; " 
" ; TAB ( 7 , 29 ) ; " " : ENDPROC 

800DEFPR0CM0 

8 1 OVDU 19,2,4,0,0,0: C0L0UR2 : PR I 
NTTAB ( 1 2 ,-.30 ) ; CHR*230 : PROCS 1 : PROC 
WT (20) : PR0CS1 : C0L0UR2: PRINTTAB ( 1 
2,30) ;CHR*236: PROCWT (20) :PR0CS1: 
C0L0UR2: PRINTTAB (12, 30) ;CHR*231; 
TAB(12,29) ;CHR*230: IFX7.= 10ANDS7.= 
1 PROCDEAD : PROCLADDER 

820PR0CWT ( 10) : PROCBA: C0L0UR2: P 
RINTTAB(12,29) ; " ";TAB<12,30) ; CH 
R*236: PROCWT (20) :C0L0UR2: PRINTTA 
B ( 1 2 , 30 ) ; CHR*230 : PROCWT ( 20 ) : PR I N 
TTAB (12, 30); " " 

830ENDPR0C 

840DEFPR0CBA 

850FORC7.=OT02 : PR I NTTAB ( BX7. ( C7. ) 
,BY7.(C7.) > ; " "; TAB (BX7. (C7.) + 1 ,BY7.( 



r 
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C7.> + 1 > ; CHRS237 : NE XT : F0RD7.=0T02 : B 
XX ( D7. > =BX 7. < D7. ) + 1 : BY"/. ( D7. > =B Y7. ( D7. ) 
+ 1: IFY7.+ 1=BY7. (D7.)ANDX7.=BX7. (D7.)S0 
UND 1,1,1 50 , 5 : SOUND 1 , - 1 5 , 1 00 , 2 : PR 

OCSCUO) 

860 1 FBX7, ( D7. > = X7.ANDBY7. ( D7. ) =Y7.AN 
DX7.O2PR0CDEAD 

870IFBY7. ( D7. > =25ANDY7.< >25PRINTT 
AB(BX7.<D7.) ,BY7.(D7.) ) ; " " 

8801FBY7. (D7.) =25BY7. <D7.> = 16: BX7, ( 
D7.>=2 

890*FX15, 1 

900NEXT 

910ENDPROC 

920DEFFR0CC 

930J7.=0: REPEAT: IFBX7. < J7.) =X7.AND 
BY7. ( J7.) =Y7.PR0CDEAD 

940J7.=J7. + 1 :UNTILJ7.=3 

950ENDPR0C 

960DEFPROCDEAD , 

970L7.=L7.- 1 : S7.-1 : C0L0UR3: PR I NTT 
AB(X7.,Y7.-1) ; " " ; TAB (X7., Y7.) ;CHR*2 
38:S0UND1 , 1 , 100,50: F0RH7.=OT06000 



1000SC7.=SC7.+ I7.:PRINTTAB(2,1) ; "S 
CORE= " ; SC7. ; " " : ENDPROC 

1 O 1 ODEFPROCSCORE 

1020CLG: IFSC7.>HI7.PR0CHISC: CLS 

1030PRINTTAB<2,5) ; "YOUR SCORE=" 
; SC7.: PRINTTAB (0,9) ; "HIGHEST SCOR 
E=";HI7.:PRINTTAB(9,11); "BY":PRIN 
TTAB<10-(LENHI*)/2,13) ;HI*:ENDPR 
OC 

1040DEFPR0CHISC 

1050PRINTTAB(3,7); "WELL DONE YO 
UR";TAB<0,9); "SCORE IS THE HIGHE 
ST";TAB(6,11) ; "SO FAR" : PRINTTAB ( 
2, 13) : "WHAT'S YOUR NAME" : PRINTTA 



B(l,l 



> ; : INPUTHI*: IFLENHI$>19HI* 



: NEXTH7.: PRINTTAB < X7. , Y7.) 



X7.= l 



:Y7.=30: PRINTTAB (X7.,Y7.) ;CHR*227;T 
AB(X7.,Y7.-1> ;CHR*226 

980ENDPR0C 

990DEFPR0CSC ( 17.) 



s=LEFT*<HI$,20> 

1 060 I FH I *= " " THENCLS : GOTO 1 050 

1070PRINTTAB(3,17); M PRESS SPACE 

T0";TAB(5,19) ; "CONTINUE" : REPEAT 
: A*=GET*:UNTILA*=" ":HI7.=SC7. 

1080ENDPROC 

1 090DEFPR0CRESET 

1 100X7.= 1 : Y7,=30: L7.=2: S7,= l : BX7. (O) 
=2: BX7. ( 1) =4 : BX7. ( 2 > =7 : BY7. ( > = 1 6 : B 
Y7. <1) = 18:BY7. (2) =21 

1110ENDPR0C 

1120DEFPR0CCAGE 

1 1 30C0L0UR3 : PR I NTT AB (13,9); CHR* 



233 ; TAB (13,8); CHR*232 ; TAB (11,9) 



CHR*227;TAB(1 1,8) ; CHR*226: GCOLO , 
1 : M0VE640 , 704 : DRAW800 , 704 : M0VE64 
0,800: DRAW800,800: F0RX=656T0784S 
TEP32: MOVEX , 704: DRAWX ,800: NEXT: E 
NDPROC 

1 140ENDPR0C 

1150DEFPR0CRE 

1 160PR0CSC( 150) :F0RR=9T00STEP-1 
:FORS=0T0100:NEXTS: PRINTTAB (R+l, 
/7.);" ";" ";TAB(R+1,Y7.-D ; " " ; " 
" : PR INTTAB ( R , Y7.) ; CHR*227 ; CHR$227 
; TAB (R, Y7.-1 > ; CHR*226; CHR*226: NEX 
T : PROCCATCH : PROCRESET : ENDPROC 

1 170DEFPR0CCATCH 

1 1 80 FORX = 1 3T03STEP- 1 : FORL=OT0 1 
50:NEXT:PRINTTAB(X + 1,Y7.) ; " ";" " 

": PRINTTAB ( 



II 




;TAB(X+1 ,Y7.-1) ; 
X,Y7.) ;CHR$233;TAB(X,Y7.-1> ;CHR*23 
2:NEXTX:F0RI=2T012:FORK=OTO150:N 
EXTK:PRINTTAB<I-1,Y7.) ; " ";" ": PR- 
INTTAB ( 1-1 ,Y7.-1 ); " ";" " 

1 1 90PR I NTTAB ( I , Y7. ) ; CHR*227 ; CHR* 
233:PRINTTAB(I ,Y7.-I) ;CHRt226;CHR 
*2"32:NEXTI 

1200CLG: PROCSETUP: PROCLADDER: PR 
OCBRICKS: PROCCAGE: ENDPROC 

1210DEFPR0C INSTRUCT IONS 

I 220PR I N f TAR ( 1 5 , 1 ) ; " MAD CAS R E " 

; TAB (15,2) " " : PRINT ' " YO 

U MUST RESCUE YOUR FRIEND FROM T 
HE": PR I NT "EVIL FRANKINSTEIN WHO 
HAS PUT YOUR":PRINT"FRIEND IN A 
CAGE . FORTUANATLY " : PR I NT " FRANK I NS 
TEIN IS A BIT FORGETFULL AND HE" 

1230PRINT"HAS LEFT THE KEYS IN 
THE LOCK. SO WHAT" : PRINT" YOU HAVE 

TO DO IS TO DODGE DRACULA WHO": 
PRINT" IS CONSTANTLY SWOOPING DOW 
N FROM THIN":PRINT"AIR. IF YOU AR 
E EITHER IN FRONT OF" : PRINT"HIM 
OR WHERE HE HAS LANDED YOU WILL" 

1240PRINT"L0SE ONE OF YOUR LIVE 
S-": PRINT'" NEXT YOU HAVE TO D 
ODGE THE MONSTER": PR I NT "WHO KEEP 
S COMING OUT OF THE WATER. ": PR IN 
T"IF YOU EITHER ARE NEXT TO THE 
WATER": PRINT"WHEN HE COMES OUT 
R YOU RUN INTO THE" 

1250PRINT"WATER YOU WILL LOSE A 

LIFE, ":PRINT' '" PRESS SPACE TO 

CONTINUE": REPEAT UNTIL GET=32:C 
LS 

1260PRINT'" NEXT YOU HAVE TO 
JUMP OVER THE":PRINT"BARRELS WHI 
CH ARE BEING ROLLED DOWN": PRINT" 
THE STAIRS. IF YOU DON'T YOU WILL 

LOSE": PR I NT "A LIFE. ": PRINT ' '" 
IF YOU ARE AT THE LADDERS ON THE 

II 

1270PRINT"FIRST LEVEL OR AT THE 
TOP OF THE STAIRS'*:PRINT"ON THE 
SECOND LEVEL OR YOU WANT TO JUM 
P":PRINT"OVER A BARREL PRESS THE 
/ KEY. ": PRINT "PRESS X TO GO R I 
GHT 1 ': PRINT" Z TO GO LEFT" 

1280PRINT' "THE AUTO-REPEAT OF 
THE KEYS HAS BEEN" : PR I NT "TURNED 
OF IN THIS GAME SO YOU CANNOT":P 
R I NT "KEEP MOVING IF YOU KEEP YOU 
R FINGER" :PRINT"ON THE KEY.HOWEV 
ER IF YOU WANT THE" : PRINT" AUTO-R 
EPEAT ON PRESS S'" 

1290PRINT "PRESS S' OR SPACE 
TO CONTINUE" 

1 300REPEAT: A=GET : UNT I L A=830RA=3 
2: IFA=83THENPR0CCHANGE: ENDPROC 

13101 FA=32ENDPR0C 

1320DEFPR0CSH0W 

1330 PRINT CHR*226:PRINTCHR*227 

; " YOU" : PRINT CHR*228: PRINTCH 

R*229; " DRACULA": PRINT CHR*23 

0:PRINTCHR*231; " MONSTER" :PRI 

NT'CHR*232:PRINTCHR*233;" FRA 

NKENSTIEN":PRINT'CHR$237; " BA 

RREL":PRINT PRESS SPACE TO PL 

AY" 

1340REPEAT UNTIL GET=32: ENDPROC 

1 350DEFPR0CCHANGE 

1360»FX12,0 

1370*FX11,10 

1380ENDPR0C 
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10 REM *##**•####******#**■**** 



20 REN *** TUNNEL 



RUN ** 



50 REM «** 



By 



Si-Rear 



■ r. 



40 REM *•*■#*****#***#*******#* 

50 ON ERROR IF ERR" 17 THEN RU 

N ELSE GOTO 260 

60 REM > > > >DEF I NE X CHARS . < < < < 
70 VDU 23,224,126,255,129,129 

,165,129,255,126 

80 VDU 23,225,126,129,165,129 

, 1 29 , 1 29 , 1 29 , 1 26 

90 VDU 23,226,0,153,102,60,60 
,102,153,0 

100 VDU 23,227,0,0,36,24,24,36 
,0,0 

110 VDU 23,228,0,0,33,245,255, 
223,4,0 

120 VDU 23,229,128,128,128,128 

,128,128, 128,128 

130 REM »»CONTROL><PROGRAM« 

< < < 

140 *FX4,1 

150 M0DE7:VDU 23; 8202; O; O; 0; : F' 
ROC INST 

160 F'R0C1NIT:M0DE2:VDU 23; 8202 
; ; ; ; : PRQCSCREEN 

170 REPEAT 

180 SOUND 1 ,-10,10, lsS0UND3,-10 
,11,1 

190 F'ROCALIEN:PROCOXYGEN:PROCA 
LIEN 

200 PROCOXYGEN: PROCGAURDIAN 

210 UNTIL REX<>0 

220 IF RE'/.=1 THEN GOTO 160 

230 M0DE7:*FX4,0 

240 END 

250 REM »»ERRORXTRAP<<<< 

260 MODE? : REPORT: PRINT" at lin 
e " ;ERL:*FX4,0 

270 END 

280 REM >» >DEF I NEX PROCEDURES 
«« 

90 DEFPROCINIT 

>0 TU*«STRING*<2Q,CHR*228):SC 
7.-0 

310 SK2*6i S0'/.=100: AX7.=630: AY7.= 
90 

320 GX7.=630: GY7.=540: 0C7.=0: 0XL7. 
=805 

330 REJ="":RE7.=0 

340 ENDPROC 

350 DEFPROCSCREEN 

360 COL OUR 1 28 : CLS : C0L0UR6 : VDU4 

370 PRINTTAB (0, 1) ; "OXYGEN: " ; TA 
B<13,1) ; "1UP: " ; SC7. 

380 FOR TUN"/.=4 TO 30 STEP 2 

390 COLOURS: PRINTTAB (0 , TUN7.) ; T 
US ; TAB ( RND < 1 6 ) +2 , TUN'/. > ; " " ; 

400 IF RND<3)=1 AND TUN7.04 TH 
EN COLOUR! 2: PRINTTAB (0,TUN%-1 > ;C 
HR*227 ; 

410 IF RND<3)~1 AND TUN7.04 TH 
EN COLOUR 12: PRINTTAB ( 19, TUN7.-1) ; 
CHR*227; 

420 NEXT TUNX: COLOURS: PRINTTAB 
(0,30) ;TU*:TAB<0,3) ; " ";TAB<19,3 

> ; " " ; 

430 VDU5 

440 FOR 0X'/.=450 TO 800 STEP 6 

450 GCOLO,L:MOVE 0X2,990: VDU 2 



29 



460 BCOLO-AiMOVE 0X7. +2, 990: VDU 



r 7 r ? 



;29 

470 S0UND2,-10,S07.,1: SOUND 1 ,--1 
, S07. , 1 : SOX-SOX+1 
480 NEXT 0X7. 



490 GC0L0,5:M0VEAX7.,AY7.:VDU 22 
4 

500 GC0L0,3:M0VEGX7.,GY7.:VDU 22 
6 

510 ENDPROC 

520 DEFPROCALIEN 

530 IF AY7.=922 THEN PROCBONUS 

540 IF INKEY(-26> AND AX7..>=60 
THEN PROCDELALIEN: AX7.=AX7.-20: PRO 
CPR I AL I EN : PROCCHECK 1 

550 IF INKEY<-122> AND AX7.< = 11 
55 THEN PR0CDELALIEN:AX7.=AX7.+20: 
PROCPR I AL I EN : PROCCHECK 1 

560 IF INKEYC-66) AND POINT (AX 
7.+30,AY7.+20>=0 THEN PROCDELALIEN 
: AY7.=AY7.+64 : PROCPR I AL I EN 

570 IF INKEY(-9B) AND POINT (AX 
7.+30,AY7.-45)=0 AND AYX>=90 THEN 
PROCDELAL I EN : A Y7.= A Y7.-64 : PROCPR I A 
LIEN - 

580 IF AY7.>=992 THEN PROCBONUS 

590 ENDPROC 

600 DEFPROCDELALIEN 

610 GC0L0,0:M0VEAX7.,AY7.: VDU 22 
4 

620 ENDPROC 

630 DEFPROCPRIALIEN 

640 GC0L0,5:M0VEAX7.,AY7.:VDU 22 
4 

650 PROCOXYGEN 

660 ENDPROC 

670 DEFPROCCHECKi 

680 IF AX £=50 AND POINT (30, AY7. 
-10>=12 THEN SOUND 0,-15 ,4 ,4: MOV 
E4 , AY7.+2 : GCOLO , : VDU227 : PROCSCOR 
E 

690 IF AX7.= 1170 AND POINT (1246 
,AYX-8>«12 THEN SOUND 0,-15,4,4: 
MOVE 1 223 , AY7.+2 : GCOLO , : VDU227 : PR 
OCSCORE 

700 ENDPROC 

710 DEFPROCSCORE 

720 VDU4:C0L0UR6: SC7.=SC7. + 10 

730 PRINTTABU7, 1) ;SC7.:VDU5 

740 ENDPROC 

750 DEFPROCOXYGEN 

760 0C7.=0C7.+ 1: IF 0C7.= (5+SK7.) T 
HEN QCX-O ELSE ENDPROC 

770 MOVE OXLX-5,990: GCOLO, OiVD 
U 229 

780 0XL7.=0XL7.~5: IF OXL7.<=450 P 
ROCDEAD 

790 ENDPROC 

800 DEFPROCGAURDIAN 

810 IF GY7.-2=AY7. AND GX7.>AX7.-6 
4 AND GX7.<AX7.+64 THEN PROCDEAD 

820 PROCDELGAURD 

830 IF GX7.O60 THEN GX7.=BX7.+66 

: PROCPR I GAURD: ENDPROC 

840 IF GX7.>=1160 THEN GX7.=GX7.- 
66 : PROCPR I GAURD: ENDPROC 

850 IF GY7.<AY7. AND RND(SK7.-1) = 
1 THEN IF RND(3) = 1 THEN GY7.=GY7.+ 
64 : PROCPR I GAURD : ENDPROC 

860 IF GY7.>AY7. AND RND(SK7.-1> = 
1 THEN IF RND(3)=1 THEN GY7.=GY7.- 
64 : PROCPR I GAURD : ENDPROC 

870 IF GX7.<AX7. AND RND(4) = 1 TH 
EN GX7.=GX7.+22: PROCPRIGAURD: ENDPR 
DC: ELSE IF RND(4)=1 THEfcl GX7.=GX7. 
-22: PROCPRIGAURD: ENDPROC 

880 IF RND(2)=1 THEN GX7.=6X7,+2 
2: PROCPRIGAURD: ENDPROC: ELSE GX7.= 
GX7.-22: PROCPRIGAURD: ENDPROC 

890 ENDPROC 

900 DEFPROCDELGAURD 

910 GCOLO, O: MOVE GX7. ,GY7.: VDU 2 
26 

920 ENDPROC 

930 DEFPROCPR I GAURD 

940 IF GY7.<92 THEN GY7.=92 ELSE 



40 
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SCATTERED about a maze of 
tunnels are flashing crystals, each 
of which is worth 10 points, but 
you have only a limited time to reach 
them before your oxygen supply runs 
out. Beware, too, of the evil guardian 
who can glide through the tunnel walls 
and destroy you on contact. 

If you manage to reach the top of the 
maze, you earn 100 bonus points. Con- 
trol keys are A and Z to move up and 
down and left and right arrowed cursor 
keys. 

Tunnel Trouble was written for the 
BBC B by Simon Rear of Immingham, 
South Humberside. 



IF GY7.>860 THEN GY7.=860 



950 GCOLO, 3:MOVE GX7., GY'/.: VDU 2 
26 

960 

970 

9 BO 

990 m-,ui_u, «.': riuvtHA/i , m t /-: vuu 4.^ 
4 

1 000 GCOLO , 1 : MOVEAX7. , AY7. : VDU 22 
5 

1010 FOR SX«300 TO 555 STEPS: SO 
UND 



ENDPROC 

DEFPROCDEAD 

FOR T7.=0 TO S 

GCOLO, 0: M0VEAX7., AY7.: VDU 



2,-15.8%,. 1:NEXT S7. 



1020 GCOLO, 0:M0VEAX7.,AY7.: VDU 

| 

1030 GC0L0,5:M0VEAX7. ,AYX: VDU 



r?7 



*-ir\ 



1040 FOR S7.=300 TO 555 
UND 2,-15,S7.,. 1:NEXT S% 



STEPS: SO 




1 OSO 
1060 
1070 
1 080 
1 090 



NEXT T7.:PR0CNEWGAME 
ENDPROC 
DEFPROCBONUS 
SC7.=SC7.+ 100: VDU4 
C0L0UR132: CLS: COLOUR 1 1 : PRI 
NTTAB(5,9) ; "B O N U S";TAB<7,10> 
1 0" 
1100 PROCTUNE 

1110 FOR WA=0 TO 500: NEXT WA 
1 120 GX7.=630: GY7.=540: AX7.=630: AY 
7.=90: 0C7.=0: 0XL7.=805: S07.= 100 



1130 
'X=3 

1140 
1150 
1 1 60 
1170 



SK7.=SK7.-1: IF SK7. 



THEN SK 



PR0CSCREEN:VDU5 

ENDPROC 

DEFPROCNEWGAME 

M0VE300 , 540: GCOLO , 3: PRINT" 
ANOTHER GAME" 
1 180 MDVE500,480:PRlNT"Y/N": *FX 

i 
1 190 
1200 
1210 
RE7.= 1 

1220 IF RE**"N" OR 
RE7.=2 

1230 UNTIL RE7.< 
1240 ENDPROC 



REPEAT 

RE*=INKEY*<0) 
IF RE*- M Y" OR 



RE$="y 

RE*="n 



THEN 



THEN 







*?c 



DEFPROCINST 



>60 PRINTTABdS, 1> ; CHR* (129) ;C 
HR*< 141) ; "TUNNEL RUN"; TAB (15,2) ; 
CHR* (129) ;CHR*< 141 ) ; "TUNNEL RUN" 
TAB(16,3) ; CHR* (130) ; "By S.Rear 



1270 PRINTTAB<2,5) ;CHR*(131); "G 

Lii de /our j! ien around the tunne 
1s";ThB<2,6> j CHR* (131) "col lectin 
g the flashing crystals." 

1280 PRINTTAB<2,8) ; CHR* (132); "B 
EWARE ! If you come in contact wi 
th";TAB(2,9) ;CHR*U32) ; "the gaur 
dian,wha can glide through"; TAB ( 
2, 10) ; CHR* (132) ; "tunnel walls, or 

your ox /gen runs out " : TAB (2 , 1 1 ) 



you will be DESTROYE 



>;" 



5 CHR* (132) ; 

D! ! " 

1 290 PR I NTTAB < 2 , 1 3 ) ; CHR* ( 1 .>.:> 
YOU SCORE- 10 pts per crystal.": 
TAB (13, 14); CHR* (133) ; "BONUS 100 
pts for reaching"; TAB ( 13, 15) ; CHR 
*( 133); "the top of the screen." 

1300 PRINTTAB<2, 17) ;CHR*<134) ; " 
USE KEYS- A-UP Z=D0WN" ; TAB ( J 3 
, 13) ;CHR* (134) ; "*• =LEFT -» =»R I GHT " 

1310 PROCTUNE 

1320 PRINTTABd 1,21) ; CHR* (129) ; 
"HIT A KEY TO BEGIN. ": *FX15, 1 

1330 KEY*=6ET* 
ENDPROC 
DEFPROCTUNE 
FOR WAIT=0 TO 100: NEXT WA1 



1340 
t 350 

1 360 



1370 RESTORE: FOR TU7.=0 TO 10:RE 

ADP7. , D7. 

1 380 SOUND 1 , - 1 3 , P7. , D7. : S0UND3 , - 1 
3 , P7. , D7. 
1390 NEXT TUX 

1400 FOR WAIT=0 TO 3000: NEXT WA 
IT 

1410 DATA 109,5,117,5,125,5,109 
,S, 125,5, 117,5, 109,5,97,4, 109,5, 
117,5,125,5 

1420 ENDPROC 
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10M0DE7 

20F0RQ= 1 T02 : VDU 1 57 : PR I NTTAB ( 1 
2 ) ; CHR* 1 29 ; CHR* 1 4 1 " Cer _SPLAT ! " : N 
EXTO 

30PRINT "Moggy has just been 
to collect the apples from 

the orchard, when on his way back 
he suddenly remembers the eggs. 

40PRINT' '"This is where you c 
ome in. You have to control Mog 
gy and collect all the eggs, but 

as you do this a large chicken 
will hatch -from each one." 

50PRINT"These will run around 
and kill you if they bump int 

o you' Your job is to kill the 

m by getting above them and 

dropping the apples onto them." 

60PRINT'*" A new sheet is sta 

rted after all the chickens ha 

ve been killed; starting a new 

sheet will also give you SIX mo 

re apples and an EXTRA life." 

70A*=GET* 

80CLS 

90F0RQ= 1 T02 : VDU 1 57 : PR I NTTAB ( 1 
2> ;CHR*129;CHR*141 "Cer _SPL AT! ":N 
EXTQ 

100PRINT'"You start off with t 
hree lives and six apples(and y 
on get an extra apple every time 

you lose a life). There are also 

sixchickens to every sheet so i 
t is good tokill one chicken per 

appl e. " 
110PRINT"It is possible to ki 
11 more than one chick at a t 
i me and this is by getting two 
chicks on line and then dropping 

an apple. The apple will contin 
Lie past the first chicken and ki 
11 the second, or even third." 

120PRINT ' "KEYS: " 
130PRINT' "Z LEFT" 
140PRINT"X RIGHT" 
150PRINT"* - UP" 
160PRINT"? - DOWN" 
170PRINT"RETURN DROP APPLE 

'I 

180PRINTTABO) ;CHR*136; "PRESS 
ANY KEY TO START" 

190A*=GET* 

200M0DE2 

2 1 OENVELOPE 1 , 1 29 , , , , , , , 2 
5,-2,0,100,120,100 

220PR0Cchrs 

230PR0Cinit 

240DIMD<6> ,F(6) ,E<6> 

250 VDU2B, 0,31 ,19, 10:C0L0UR131 : 
CLS 

260VDU28 ,0,9,19,0: COLOUR 1 32 : CL 
S 

270VDU2B, 0,3 1,19,0 

280GCOLO, 1 : COLOUR 1 28: C0L0UR7 

290M0VE60,840: DRAW250, 1000: PL0 
T85, 440,840 

300F0RZ=6T08 

3 1 0F0R I = 1 T05 : PR I NTTAB ( I , Z ) CHR* 
224 ; CHR*224 ; CHR* 1 ; CHR*8 ; CHR*8 ; C 
HKf224;CHR*224:NEXT 

320NEXT 

330FGRX=1T04 



340PRI NTTAB < RND < 1 6) +2 , RND (15) + 
10)CHR$224;CHR*224:CHR$10;CHR*8; 
CHR*0;CHR*224;CHR*224 

350NEXT 

360C0L0UR131 

370C0LOUR& 

380F0RI=1T06 

390AM-AM+1 

400J-RND ( 16) +2: K=RND ( 15) +10 

4 1 0D < AM) ■ J : F ( AM ) =K 

420PR I NTTAB ( J , K ) CHR*228 

430NEXT 

440COLOUR128 

450PRINTTAB (4 ,8) " " : PRINTTAB (4 
,9)" " 

460C0L0UR131 

47OC0L0UR0 

480FRINTTAB<6,1> "LIVES ";LIV:P 
RINTTAB (6,2) "SCORE " ; SC 



TH 



Y0 



490REPEAT 
500X0=X: Y0-Y 
510PRINTTAB(X f Y)M* 

520 IF HATCHED=0 THEN 540 
530PR0Cmovedemon 
540IFINKEY(~98) AND X>1 X=X-1 
550IFINKEY(-67)AND X<1B X=X+1 
560IFINKEY(-105)AND Y<30 Y=Y+1 
570IFINKEY(-73)AND Y>11 Y=Y-1 
580 1 F I NKEY ( -74 > PR0CDR0P 
590IF APPLES=6 THEN PROCDEATH 

600 I FFNCH ( X , Y ) =CHR* 1 32 PROCEAT 

610IFFNCH(X ,Y)=CHR*133 PROCDEA 

I 

620IFFNCH<X,Y)OCHR*32 X = X0:Y= 

) 

630IF X=X0 AND Y=Y0 THEN520 




■ ■••:■: - x 





4 • 
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640PRINTTAB<X0,Y0> " " 

650UNTIL2=3 

660DEF FROCchrs 

670VDU23 , 224 , 254 , 254 , 254 ,0,127 
, 127,127,0 

680VDU23 , 225 , 1 20 , 8 , 60 , 1 26 , 1 26 , 
126,126,60 

690VDU23 , 240 , 60 , 255 , 60 , 90 , 1 26 , 
1 26 , 1 26 , 60 

700VDU23 , 228 , 24 , 60 , 1 26 , 1 26 , 1 26 
,126,126,60 

7 10VDU23, 229, 192,64,92, 126,63, 
31,8,24 

720VDU23 , 23 1 , 66 , 40 , 1 49 , 32 , 74 , 1 
6, 165,0 

730ENDPROC 

740DEF PROCinit 

750VDU23; 8202; 0; 0; O; 

760X=9:Y=10 




770AM-0: HATCHED=0 

780APPLES=0 

790LIV=3:SC=0 

800DEAD -0 

1 OM*=CHR* 1 7+CHR * 1 +CHR*240 

820D*=»CHR*17+CHR*5+CHR*229 

830ENDPR0C 

B40DEF FNCH<0,R) 

850L0CALA7. , LX , L Y , C 

860VDU3 1 , , R 

070A7.= 135 

880C=USR (&FFF4 ) 

890C«C AND&FFFF 

900OC DIV&1G0 

9 1 GVDU3 1 , POS , VPOS 

920=CHR* (C) 

930DEF PROCEAT 

940SOUND0,-15,l ,2 

950PR I NTTAB ( X , Y ) CHR*23 1 

960SOUNDO ,-10,6,15 

970F0RD= 1 T0200: NEXT 

980PRINTTAEHX , Y) " " 

990PROCcheckegg 
1000X=XG:Y=YO 
1 1 OHATCHED=HATCHED+ 1 
1020ENDPR0C 
1030DEF PROCDROP 

1 040 I FFNCH ( X , Y+ 1 )< >CHR*32 THEN 
ENDPROC 

1 050APPLES=APPLES+ 1 
1060APY=Y+1 



OUR HERO Moggy has been 
picking apples in the orchard 
when he remembers that he also 
has to collect all the eggs in the farm- 
yard. Each time he picks up an egg, a 
large, dangerous chicken hatches from 
it and can kill Moggy simply by bump- 
ing into him. Moggy, however, can 
dispose of the chickens by dropping his 
apples on them. 

Use Z to move left, X to move right, 
* to move up, ? to move down, and 
RETURN to drop an apple. You start 
with six apples and three lives and you 
get an extra apple every time you lose a 
life. It is still a good idea to kill a 
chicken, or even several if you manage 
to get them stacked one above the other, 
with every apple as there are six chick- 
ens to be eliminated. After that, you go 
to a new screen with six more apples 
and an extra life. 

Remember that as you pick up an 
egg, a chicken hatches and can zap you 
immediately, so move out of the way 
quickly. The author of the game, Roddy 
Mack of Felixstowe, Suffolk, suggests 
approaching the eggs diagonally to im- 
prove your chances. 

Chicken Run was written for the 
BBC B. 



1070C0L0UR2:PRINTTAB (X ,APY)CHR* 
225 

1080IF FNCH(X,APY+1)=CHR$133 TH 
EN PROCkill 

1090 if fnch(x,apy+1 ><>chr*32 th 

£nendproc 
1100if apy>29 then endproc 

1 1 10S0UND1 ,-15,APY*3,5 

1 1 20F DRD= 1 T030 : NE XT 

1130PRINTTAB(X,APY> " " 

1 140APY=APY+1 

1 150*FX15,0 

U6OG0T01070 

1170DEF PROCcheckegg 

1180F0RI=1T06 

1 1 90 IF ( D ( I ) =X ) AND (F ( 1 ) =Y) THEN 
E<I)=1 
1200NEXT 
1210ENDPR0C 
1220DEF PROCmovedemon 
1230F0RI=1T06 
1240IF EIDOl THEN 1350 
1 250PR I NTTAB ( D < I > , F ( I ) ) " " 
1 260C X =RND (3) -23 CY=RND < 3 ) -2 
1 270D ( I > =D ( I ) +CX : F ( I ) =F ( I ) +CY 
1280IFDUK1 THEN D(I)=D<I) + 1 
1290IFD< I) >1S THEN D(I)=D(I>-1 

1300IFF(I)<11 THEN F(I)=F(I)+1 

1310IFFU) >28 THEN F(I>=F(I)-1 

1320 IF <D(I)=X)AND<FU>=Y)THEN 
PROCDEATH 

1330 IF FNCH(D<I> ,F(I) ><>CHR#32 
THEN D ( I > =*D < I > -CX : F ( I ) =F < I ) -CY 

1340PRINTTAB(D( I ) ,F(I) > D* 

1350NEXT 

1360ENDPR0C 

1370DEF PROCkill 

1380DEAD=DEAD+1 

I 390SOUNDO , - 1 5 , 4 , 50 

1400F0RI=1T06 

1410IFX=D(I) AND APY+1=F < I > THEN 

E ( I ) =0 

1420NEXT 

1 430F0R I = 1 TO 1 50: NEXT 

1440SC=SC+10 

1 450C0L0URO 

1 460PR I NTTAB < X , APY+ 1 ) " " : PR I NTT 



AB(6,2) "SCORE " ; SC 


1470IF DEAD=6 THEN PROCnext 


1480ENDPR0C 


1490DEF PROCDEATH 


1 500S0UND0 ,-15,6,40 


1510F0RX-1T05 


1 520VDU 1 9 , 3 , 4 ; 0; 1 9 , 4 , 3 ; 0; 


153OFORD=lT0500:NEXT 


1 540VDU 1 9 , 3 , 3 ; ; 1 9 , 4 , 4 ; ; 


1 550F0RD- 1 T0500: NEXT 


1560NEXT 


1570C0L0UR0 


1 580L I V=L I V- 1 : APPLES= APPLES- 1 : P 


RlNTrAB(6,l)"LIVES ";LIVsIF LIV> 


THEN F'RINTTAEKX , Y) " ":X=5:Y=10 


: ENDPROC 


1 590PR1 NTTAB 0>, 12> "BAD LUCK ! 


ANOTHER GAME Y/N?" 


1600F0R S0=1T011 


1610READP,D:S0UND1 , 1 ,P,D 


1620NEXT 


1 630DATA73 , 1 2 , 73 , 1 2 , 73 , 3 , 73 , 1 2 , 


85 , 1 2 , 8 1 , 3 , 8 1 , 1 2 , 73 , 3 , 73 , 1 2 , 69 , 3 
,73,12 
1640A-J-GET* 


16501 FA*="Y"THEN RUN 


1660IFA*^"N"THEN END 



1670G0T01640 

1680ENDPR0C 
1690DEF PROCne;;t 

1 700APPLES=APPLES-6: L I V=L I V*- 1 

1710C0LOUR6 

1720DEAD=0 

1730AM=0 

1740F0RI=1T06 

1750AM=AM+1 

1 760J=RND ( 16) *2: K=RND ( 15) +10 

1770D(AM)=J:F<AM) =K 

1 780PR I NTTAB ( J , K > CHR*228 

1790NEXT 

1800COLOURO 



1810PRINTTABC6, 1 > "LIVES 
1820ENDPR0C 



'■ ■ 
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DOCTOR WHO 




STRANDED on the planet of the 
Daleks, Doctor Who is trying to 
reach the Tardis before his oxygen 
supply fails. The Tardis however, is out 
of order and keeps jumping about all 
over the screen. Can you guide the 
doctor to it while keeping out of the way 
of the Daleks? Use Z and X to move left 
and right, * and / to move up and down. 
Doctor Who was written for thel 
BBC B by Ranjan Bhattacnarya of Har- 
penden, Herts. 



^hi 



10 REM DR. WHO 

20 REM 

30 REM by R. Bhattachar ya 1*? 



83 



40 REM 
50 M0DE7 

60 PROCPDCDR.WHO") 
70 PRINT 

80 PRDCD<CHR*133+"BY R.BHATTA 
CHARYA 1983") 

90 PRINT"The tardis is on the 
blink and keeps on jumping arou 
nd all over the screen. Can you 
get to the tardis be-fore your 

oxygen supply runs out, so t 
hat you can make your escape fro 
m the daleks planet?" 

100 PR0CD(GHR* 134+ "CONTROL KEY 

S; — " ) 

110 PRINT 

120 PR0CD<CHR*130+"UP = '*' 



" ) 



130 PRQCDtCHR* 131+ "DOWN = '/' 



") 



290IFU7.MOD(S7.+2)=OORU7.M0D(S7.+2 
)=1PR0CDALEK 

300U7.-U7.+ 1 : UNT I L. Z7.= 1 0RV7.= 1 

310PR0CEND 

320IFF:*="Y"THEN210 

330M0DE7:END 

340DEFPR0CINIT 

350VDU23 , 224 , 255 , 255 , 255 , 255 , 2 
55 , 255 , 255 , 255 , 23 , 225 ,0,16,124,1 
24 , 68 , 68 , 68 , 1 24 , 23 , 226 ,124,124,1 
24,124,124,124,124,254,23,227,0, 
56 , 1 24 , 57 , 58 , 20 , 1 26 , 1 25 , 23 , 228 , 1 

24 , 1 24 , 56 , 56 , 1 08 , 68 , 68 , 204 

360VDU23 , 229 ,0,24,63, 60 , 60 , 1 26 
, 1 26 , 1 27 , 23 , 230 , 1 26 , 1 26 , 1 26 , 1 26 , 
1 26 , 1 26 , 255 , , 23 , 23 1 , , 28 , 62 , 1 56 
, 92 , 40 , 1 26 , 1 90 , 23 , 232 , 62 , 62 , 28 , 2 
8 , 54 , 34 , 34 , 5 1 , 23 , 233 , , 24 , 252 , 60 
, 60 , 1 26 , 1 26 , 254 , 23 ; 8202; ; ; ; 

370D 1 *asCHR*227+CHR*9+CHR* 1 0+CH 
R*22S : D2*=CHR*23 1 +CHR*8+CHR$ 1 0+C 
HR*232:Kl*=CHR*233+CHR*S+CHR$i0+ 
CHR*230:K2*=CHR*229+CHR*8+CHR*10 

+CHR#230:T*«CHRS225+CHR*8+CHR*10 

+CHR*226 

380A7.-RND(16) : B7.=RND (25) +3: J'/.~ 
RND<16)+20:K7.=RND<25)+3:C7.=0:D7.= 
0: Z7.=0: 6%-0s H7.=0: P7.=200: U%=0: V7.= 
O 

390CLS:PRINTTAB(7,0); "D r W h 
o OXYGEN LEFT" 

400FORI7.=OT039: PRINTTAB ( 17., 1 ) ; 
CHR*224: NEXT: PRINTTAB (0,8) ; "I "jT 
AB (O, 1 1) ; " i "; TAB (0,20) ; " ! ";TAB(0 
,23) ; " :";TA6(39,8> ; " ! "; TAB (39, 11 



140 PR0CD(CHR$1 



_> _> 



"LEFT ■ 'Z' 



") 



) ; "i "; TAB (39, 20) ; "! " ; TAB (39, 23) ; 
; TAB ( A7. , B7. ) ; D2* ; TAB (J7., K7. > ; K 1 



M I II 



150 PR0CD(CHR*132+"RIGHT = 'X* 
") 

160 PROCPD( "ENTER SKILL LEVEL 
0-9 (0=HARDE3T) ") 

170 S7.=GET-48: IFS7.<00RS7.>9THEN 
170 

180ENVEL0PE1,1, 100,0,-3,15,1,5 
, 1 26 , - 1 , O , -5 , 1 26 , 1 26 

190 M0DE4 

200W7.=0: VDU1 9,0,4 ;0; 19, 1 ,3;0; 

2 1 OPROC I N I T : T I ME=0 : REPEATUNT I L 
TIME =200 
220REPEAT 

230PRINTTAB<34,0) ;P7.; " " 
240P7.=P7.-1: IFP7.=0Z7.= 1 
250IFH7.=0PR0CTARDIS 
260PR0CPLAYER: IFZ7.= 1THEN300 
270PR0CDALEK : I F Z7.= 1 0RV7.= 1 THEN3 



4 1 0£7.= A7. : FX-BX : LX=J 7. : M7.=K7. : D*= 

D2* : K*=K 1 * : ENDPROC 
420DEFPR0CPLAYER 
4301 FINKEY(- 105) =-lD7.= l:C7.=0 
440 1 F I NKEY ( -73 > =- 1 D7.=- 1 : C7.=0 
450IFINKEY(-98) --1CX=-1: D7.=0:D 

*=D1* 

460 1 F I NKEY ( -67 ) =- 1 CX- 1 : D7.=0 : D* 

= D2* 

470A7.=A7.+C7.:B7.=B7.+D7. 

480IFA7X 1 ANDB7.< >9ANDB7.< >21A7.= 1 

490 1 FA7.=0A7.=3B : C7.=- 1 : G7.= 1 

500 1 FA7. >38ANDB7.< >9ANDB7.< >2 1 A7.= 

38 



C0L0UR1: PRINTTAB (A7. ,B7.) ; D* 

560IFH7.= 1PR0CT 

570EX-AX: F7.=B7.: G7.=0: ENDPROC 

580DEFPR0CDALEK 

590IFJ7.<A7.J7.=J7.+ 1 sK*=K2*: IFJX> 
38 J 7.= 38 

600IFJ7.>A7.J7.=J7,-1:K*=K1*: IFJ7.< 
1J7.= 1 

610IFK7.<B7.K7.=K7.+ 1 : IFKX>29K%=29 

620IFK7.>B7.K7.=K7.-1 : IFKX<2KX=*2 

630 IFA7.= J7.AND ( B7.=K7.0RB7.=K7. + 1 OR 
B7.+ 1=K7.)THENZ7.= 1 

640C0L0UR0 : PR I NTTAB ( L7. , M7. ) ; K* : 
C0L0UR1 : PRINTTAB ( J7. ,K7.) ; K*s L7.=J7. 
: M7.=K7.: ENDPROC 

650DEFPR0CTARD I S 

660X7.=RND ( 35 > +2 : Y7.=RND ( 26 ) +3 

670C0L0UR 1 : PR I NTTAB ( X7. , Y7. ) ; T* 

680H7.= 1 : SOUND 1 , 1 , 1 00 , 1 : ENDPRO 
C 

690DEFPR0CT 

700 I FRND ( 50 ) =25C0L0UR0 : PR I NTTA 
B(X7.,Y7.) ;T$:H7.=0 

710 1 F J '/.- X7.AND ( K7.= Y7.0RK7.=Y7.+ 1 OR 
Y7.=K7.+1)C0L0UR0:PRINTTAB(X7.,Y7.); 
T*:HX=0 

720 1 FA7.= X7.ANDB7.= Y7.V7.= 1 

730IFA7.= X7.AND(B7.=Y7.+ 10RY7.=B7.+ 1 
) ANDC7.< >0: COLOURO : PRI NTTAB ( X7. , Y7. 
) ; T* : H7.=0 

740ENDPR0C 

750DEFPR0CEND 

760 1 FZ7.= 1 SOUNDO , - 1 5 , 1 50 , 7 : T I ME 
=0: REPEATUNTILTIME=50 

7701 FV7.= 1 : FORI 7.=- 1 5T0-5STEP5 : F 
ORJ7.=255T00STEP~10:S0UNDl , IX, JX, 
1 :NEXT:NEXT 

780W7.= 1:CLS 

790C0L0UR1 

800IFV7.= 1PRINTTAB (5, 14) ; "YOU'V 
E MADE IT! ! ! " 

810IFZ7.= 1PRINTTAB(5,14) ; "YOU'R 
E DEAD ! ! ! " 

820*FX15,1 



830PRINTTAB( 



!0) ; "PRESS SPACE 



5 



10IFA7.^39ANDG7.=OA7.= 1 : CX=1 



00 



520IFB7.<2B7.=2 
530IFB7.>29B7.=29 

54OIFA7.^J7.AND(B7.=K7.ORB7.=K7.-*-10R 
B7.+ 1=K7.) Z7.= l 



280PR0CFLAYER : I F Z7.= 1 THEN300 



ETCT 



50C0L0UR0 : PR I NTTAB ( E7. , F7. ) ; D* : 



BAR FOR ANOTHER GAME" ; TAB (5, 22) 
; "OR *N' TO CHANGE SKILL LEVEL)" 
: F*=GET* . 

840IFF*<>" "ANDF*O"N"THEN830 

850 IF F*=" " THEN GOTO 200 

860 IFF*^"N M THEN RUN 

870VDU23; 1 1 , 255; 0; 0; 0: ENDPROC 

880 DEF PROCPD(A*)FOR I7.=0T01: 
VDU?<9D81 ; &8D83; : PRINTSPC ( 16-LENA 
*D I V2 ) A* : NEX T : ENDPROC 

890 DEF PR0CD(A*)F0RI7.=0T01:VD 
U&8D; .-PRINTSPC (10) A*: NEXT: ENDPRO 
C 
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10 REM **** MATHS**** 
20 REM ****BY P. COLQUHOUN*** 
* 

30 MODE7 

40 PROCINSTRUCTIONS 
50 CLS 

60 DEFPROCSELECT 
70 SCORE=0 

80 PRINT "PLEASE ENTER THE LET 
TER THAT CORRESPONDS TO YOUR QUE 
ST IONS. " 

90 A=M3ET 
100 IF A=65 THEN PROCADD 
110 IF A=83 THEN PROCSUBTRACT 
120 IF A=77 THEN PROCMULTIPLY 
130 IF A-68 THEN PROCDIVIDE 
140 ENDPROC 
150 DEFPROCADD 
160 CLS 
170 PROCTITLE 
180 A=RND(100) 
190 B=RND(100> 

200 PRINT TAB(0,3) "WHAT IS ";A 
;" + ";B 

210 PRINT TAB(25,5> "SCORE= ";S 
CORE 

220 IF SC0RE=10 THEN PROCPRES 
230 INPUT ANS 

240 IF ANS=A+B THEN SCORE=SCOR 
E+1:S0UND 1 ,-15,53, 10: GOTO 160 

250 IF ANSOA+B THEN SOUND 0,- 
15,20,20 

260 IF ANSOA+B THEN PRINT"WRO 
NG. PLEASE TRY AGAIN. " : GOTO 200 
270 ENDPROC 
280 DEFPROCTITLE 

290 PRINT TAB(0,0> ;CHR*(130);C 
HR* (157); CHR* < 132) ;CHR*(141>; " 
MATHS" 
300 PRINT TAB<0,1) ;CHR*(130);C 
HR* < 157) ; CHR* < 132); CHR* (141); " 
MATHS" 
310 PRINT TAB < 0,23) ; CHR* (130); 



CHR* < 1 57 ) ; CHR* ( 1 32 ) ; CHR* ( 1 4 1 > ; " 
MATHS" 

320 PRINT TAB(0,22);CHR*<130) ; 
CHR* < 1 57 ) ; CHR* ( 1 32 > ; CHR* (141);" 
MATHS" 

330 ENDPROC 

340 DEFPROCSUBTRACT 

350 CLS 

360 PROCTITLE 

370 PRINT TAB(25,5) "SCORE= " ; S 
CORE 

380 IF SC0RE=10 THEN PROCPRES 

390 C=RND(200)+100 

400 D=RND(100) 

410 PRINT TAB(0,3) "WHAT IS ";C 

;" - ";D . 

420 INPUT ANSW 

430 IF ANSW=C-D THEN SCORE=SCO 
RE+1:S0UND 1 , -15,53, 10: GOTO 350 

440 IF ANSWOC-D THEN SOUND 0, 
-15,20,20 

450 IF ANSWOC-D THEN PRINT"WR 
ONG. PLEASE TRY AGAIN. " : GOTO 410 

460 ENDPROC 

470 DEFPROCMULTIPLY 

480 CLS 

490 PROCTITLE 

500 E=RND(10) 

510 F=RND(20) 

520 PRINT TAB (25,5) "SCORE= " ; S 
CORE 

530 IF SCORE-iO THEN PROCPRES 

540 PRINT TAB (0,3) "WHAT IS ";E 
.i" x " ■ F 

550 INPUT ANSWE 

560 IF ANSWE-E*F THEN SCORE=SC 
0RE*1:S0UND 1 ,-15, 53, 10: GOTO 480 

570 IF ANSWEOE*F THEN SOUND 
,-15,20,20 

580 IF ANSWEOE*F THEN PR I NT "W 
RONG. PLEASE TRY AGAIN.": GOTO 540 

590 ENDPROC 

600 DEFPROCDIVIDE 



THERE ARE some difficult 
questions and some easier ones 
in Monster Maths, a multi- 
purpose maths quiz devised by Ross 
Colquhoun of Crieff, Perthshire for the 
BBCB. 

You can choose to be tested on addi- 
tion, subtraction, multiplication or div- 
ision, and must complete one section 
correctly before you are allowed to go to 
the next. In the division section, you 
will be asked for the remainder as well 
as the main answer. 



610 CLS 

620 PROCTITLE 

630 G=RND(100>+50 

640 H=RND(50) 

650 PRINT TAB<25,5) "SCORE= " ; S 
CORE 

660 IF SC0RE=10 THEN PROCPRES 

670 PRINT TAB <0, 3) "WHAT IS ";G 
; " DIVIDED BY ";H 

680 INPUT ANSWER 

690 PRINT TAB(0,7)"AND THE REM 
AINDER,IF ANY. " 

700 INPUT ROS 

710 IF ANSWER=G DIV H AND R0S= 
G MOD H THEN SC0RE=SC0RE+1 : SOUND 
1 ,-15,53, 10:PRINT"C0RRECT"|A*=I 
NKEY*( 150): GOTO 610 

720 IF ANSWEROG/H THEN SOUND 
0,-15,20,20 

730 IF ANSWEROG/H THEN PRINT" 
WRONG. PLEASE TRY AGAIN.": GOTO 67 
O 

740 ENDPROC 

750 DEFPROCPRES 

760 CLS 

770 FOR Y=l TO 24 
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780 FOR X=l TO 20 

790 PRINT TAB(X,Y) ;CHR$<132> ; " 

WELL DONE ! " ; 

800 NEXT X 
NEXT Y 

A$=1NKEY* (200) 

GOTO 50: END 

DEFPROC I NSTRUCT I ONS 

PROCTITLE 

PRINT TAB(0,3> ;CHR*<129) ; " 

program tests your ability 



810 

820 
830 
840 
850 
860 
This 
at " 
870 



PRINT TAB (0,4) ;CHR*(129> ; 



doing basic addi tion , subtractio 

n," 

880 PRINT TAB (0,5) ;CHR*<129> ; " 
multiplication and division." 

890 PRINT TAB (0,8) ;CHR*<131>;" 
To select the topic, type in the 
first" 

900 PRINT TAB(0,9);CHR*(131); " 
letter o-f it. " 
910 PRINT TAB<0,11) ;CHR*(133); 
" In the division section you fi 
rst have" 

920 PRINT TAB(0,12);CHR*(133>; 
" to enter the No. of times" 

930 PRINT TAB(0,13) ;CHR*(133); 
" it divides into it then press 
RETURN. " 

940 PRINT TAB(0,16) ;CHR*(134); 
" The computer then asks you for 
the" 
950 PRINT TAB(0, 17) ;CHR*(134); 
" remainder. ALL THE REST ARE AS 
NORMAL. " 

960 PRINT TAB (0,20) ;CHR*(129) ; 
CHR$(136);" PRESS THE SPACE BAR 
TO CONTINUE. " 
970 REPEAT 
980 B=BET 
990 UNTIL B=32 
1000 CLS 
1010 PROCTITLE 

1020 PRINT TAB(0,3> ;CHR*(129) ; " 
When you reach a score of ten yo 
u" 
1030 PRINT TAB(0,4) ;CHR*(129) ; " 
are able to change the topic." 
104O PRINT TAB(0,7);CHR*(131) ; " 
If you get a sum right or wrong 
you" 
1050 PRINT TAB(0,B);CHR$<131) ; " 
get a pleasant or a strange noi 
se. " 

1060 PRINT TAB (0,11) ;CHR*(133) ; 
" If you get a sum wrong you are 
asked" 

1070 PRINT TAB(0,12) ;CHR*<133>; 
" to try again. " 

1080 PRINT TAB (0,17) ;CHR$<133>; 
" GOOD LUCK! ! " 
1090 A*=INKEY*< 1000) 
1100 GOTO 830 
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LANGUAGE LEARNING AIDS FOR 
FRENCH, GERMAN & SPANISH 



As used in numerous schools and colleges these programs provide a 

highly successful aid to modern language learning Each cassette 

contains a sophisticated control program and a comprehensive series of 

vocabulary lessons which can be used in a variety of self-paced learning 

and test modes Words, phrases etc are displayed with all necessary 

accents and special characters, different colours are used for masculine. 

feminine and neuter words to assist gender learning 

The programs are suitable for beginners. 0-ievel and beyond as simple 

commands enable new lessons in vocabulary or grammar to be created 

by the user edited as required, then permanently saved for later use 

Invaluable for homework and exam revision! 

Two cassettes are available for each language, together these contain a 

vocabulary of thousands of words: Level A provides 16 lessons in general 

subjects. Level B provides a further 16 lessons including adjectives, adverbs 

and fully coniugated verb lists 

Available from your computer store or by mail order Price £9.95 
Also Available 'ANSWER 8ACK General Knowledge Quiz" Price £1095 



^5; 



5<*5* 



***£ 



German 
jUaster 



Level A 









O • F 



KOSMOS Software 



Pilgnms Close. Horlmgton DUNSTABLE Beds LU5 6LX 
Telephone (05255) 394? 



the French Mistress Level A * 
the Germon Master Level A «t 
The Spanish tutor Level A •% 
ANSWER BACK Quiz (Senior) a 



Please supply the following programs 

The French Mistress l^vei 
The German Master Level 
The Spanish Tutor Level 



£9 95 
£9 95 
£995 
£10 95 



D 

I I 
D 
I I 



B « £9 95 a 
B tf £9.95 D 
B * £9.95 1 1 



I have a BBC/Electron/Spectrum computer (delete as necessary) 

Mf/Mf$/Miss , 

f \\_J>_J \ \_r UU L 11 i L i 11 11 I ■* m mm I tlitlLltthltlttllllllKl 111 t Kllllll t I II Iklllll till ll til H II It III II t llll It ll I ■ I m. I Itlllll Ulit III til till tid 



Post code 

enclose a cheque/postal order for £ payable to KOSMOS Software 

KOSMOS SOFTWARE 
1 Pilgnms Close. Harrington. DUNSTABLE, Beds LU5 6LX 
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1 


*FX 200,2 


10 


ON ERROR GOTO 10 


20 


M0DE7 


30 


S=0 


40 


PROCI 


50 


DIM Q*<P,L) 


60 


DIM A*(P,L> 


70 


MODE 2 


80 


FOR 1=1 TO L 


90 


J = INT(RND<91>-*-35> 


100 


FOR M=l TO P 


110 


A*(M,I>=CHR*<J> 


120 


NEXT M 


130 


NEXT I 


140 


CLS 


150 


FOR 1=1 TO L 


160 


PRINT " ";Af(l,I>; 


170 


NEXT I 


180 


FOR 1=1 TO 10000 


190 


NEXT I 


200 


FOR J = l TO P 


210 


CLS 


220 


PRINT "PLAYER ";J 


230 


FOR 1=1 TO L 


240 


INPUT G*(J,I> 


250 


NEXT I 


260 


NEXT J 


270 


FOR J=l TO P 


280 


S=0 


290CLS 


300 


PRINT "PLAYER ";J;" YOU GO 


| 

310 


FOR 1=1 TO L 


320 


FOR H=l TO L 


330 


IF Q$ (J , I)=A* (J.H) 8=8+1 1 


PRINT Q*(J,I);" "; :A*(J,H>="£" 


340 


NEXT H 


350 


NEXT I 


360 


PRINT 


370 


PRINT 


380 


PRINT "SCORE"" jS 


390 


PRINT 


400 


PRINT "YOU DIDN'T GET " 


410 


FOR 1=1 TO L 


420 


IF A$(J,I>="£" A*(J,I>="" 


430 


PRINT A*<J,I> j" "; 


440 


NEXT I 


450 


PROCS 


460 


PR I NT : PR I NT : PR I NT : PR I NT : PR 


INT" press SPACE BAR to go 

->n" 


jfi 

470 


REPEAT 


480 


Ft=GET* 


490 


UNTIL F*«=" " 


500 


NEXT J 


510 


RUN 


520 


DEFPROCI 


530 


PRINT "*■»**»#**#»»»■»»###** 



540 PRINT "###»**»##*BRAIN#*** 
***»TEST***#»***#**»" 

550 PRINT "***##*»**■**■**»»###* 
*##»#»*#**»***#*♦»#■»" 

560PR I NT : PR I NT : PR I NT : PR I NT 



570PRINT 
will print 
haracters , 
type in 



The computer 
10 c 



up 

then you 
one character 
which you think is i 
n it. Then press R 

ETURN then do the 

next characte"; 

580 PRINT "r and so 

on." 
590PR INT : PR I NT : PR I NT : PR I NT 
600 INPUT" HOW MANY cha, 

acters ?"L 

610 PRINT:PRINT: INPUT" H 

OW MANY PLAYERS ?"P 

620PRINT" SPACE BAR 

TO START" 
630 REPEAT 
640 Ff=GET* 
650 UNTIL F*=" " 




> 



660ENDPR0C 

670 DEFPROCS 

630 PR I NT: PR I NT: PR I NT 

690 IF S=L PRINT "BRILIANT!" : 
ENDPROC 

700 IF S<L/2 PRINT "NOT VERY G 
OOD" : ENDPROC 

710 IF S>L/2 PRINT "NOT BAD" : 
ENDPROC 



SHARPEN your memory and in- 
crease your knowledge of the com- 
puter keyboard with this game for 
the Electron and BBC B by Christopher 
Brown of Great Barford, Bedfordshire. 
The computer will display briefly a 
sequence of up to 10 characters — you 
choose the number; after the screen 
clears, your aim is to key-in as many of 
the characters as you can remember. 

You can play on your own or against 
several other players to see who can 
reach the highest score. 
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«&& 



4fP 



m 



1ft 




&* 















0^m 
















MAKING 












Are vou ready to take on the challenge? 
When you open up a MOVIT box, you move into the 
exciting new world of robots. 

Everything from the printed circuit board to the 
motors are included, just waiting for you to make a start. 
And the detailed instructions take you through each stage 
of this new adventure. 

To create this new generation of robot models all 
you need is a screwdriver and a knife. 

What's more, MOVITS cost a lot less than you might 
think. In fact, the price is the only thing about them that's 
down-to-earth! 



MOVITS all have their own characters and appeal. 
They're fun to put together, fun to run. Take your first step 
into the world of serious robotics. Send off for your 
MOVITS today. 

















■ 


*_ i , 


^1 






^Please send me my MOVIT(S) straight away. ' 

I enclose my cheque for £ payable to Prism Consumer Products 

(add £2.95 p&p for one MOVIT and £1 .00 extra for each subsequent MOVIT) 



MOVITS- THE CHALLENGE CONTINUES 












Prism Consumer Products Limited 
Prism House, 18-29 Mora St., 
London EC1V 8BT 
Telephone: 01-253 2277 



Maine 



Address 



LJ LINE TRACER II <« £17.99 LJ PIPER MOUSE (a £19.99 
I I MEMOCON CRAWLER & £34.99 I I MONKEY «i £9.99 

□ 



AP 



CIRCULAR («£29.99 






Enter number of MOVITS required in boxes above. 

Allow 28 days for delivery. All prices include VAT. 

Batteries not included. Dealer enquiries welcome. 

Send your cheque to: Movit Offer Prism Consumer Products. Prism 

House. 18-29 Mora Street, London EC1V8BT. 







10 REM *************** 
20 REM *************** 
30 REM ** ** 

40 REM ** CATACOMBS ** 
50 REM ** ** 

60 REM ** BY C.Stow ** 
70 REM ** ** 

80 REM *************** 

90 REM *************** 
1 00M0DE7 

1 10VDU23; 8202; O; O; 0; 
120PR0CINST 
130PR0CINIT 
140PR0CHEADING 
1 50PROCCHECK 
160REPE AT: REPEAT 
170INPUT"Next command" , CO* 
1SOIFLEN<CO*>«0 PRINTCHR*133"W 
hat?" 

1 90UNT I LLEN ( CO* > >0 

200PR I NTCHR* 1 29 ; STR I NG* < 30 , " * " 



) 



210PR0CANAL 

220PR0CTP 

230UNTIL LOSE OR WON 

240PR0CEND 

250RUM 

260DEFPR0CHEAD I N6 



^ 



70PRINT' ' 'SPC10;CHR*129;CHR$1 
41; "CATACOMBS" 

280PR I NTSPC 1 O ; CHR* 1 29 ; CHR* 141; 
"CATACOMBS" 

290PR I NTSPC 10; CHR* 1 32 ; •'******* 
****" 

300ENDPROC 

310DEFPR0CCHECK 

320IF<P0SI»6 OR POSI-9) AND <N 
OT O OR (IP(l)OPOSI AND IP(1)<> 
0>) PRINT"lt is pitch black in h 
ere. " : ENDPROC 

330PRINT ' "You are now ";PL*<PO 
SI> 

340PRINT "VISIBLE EXITS :" 

350F0RIMT04 



360 1 F 



NP<P0SI, I> 



PRINTDTi(I) 






370NEXT 

380PRINT'"' I can now see :" 

390SH=FALSE 

40OFORI-1TQ6 

410IF IP(I)=P0SI PRINTI*<I> :SH 
-TRUE 

420IF IP(I)-P0SI AND 1=1 AND N 
OT PRINTBRT*(0) 

4301F IP(I)=P0SI AND 1=1 AND 
PRINTBRT* (LT) 

440NEXTI 

450IF NOT SH PRINT"nothi ng at 

all." 

460ENDPROC 

470DEFPRQCANAL 

480IF LEN(C0$>=1 IF INSTR<"NES 
W " , CO* ) >0 PROCM : ENDPROC 

490 IF CO*="HELP" PROCCHECKl PRO 
CINV: PRINT" Your score is ";SC;". 
":PRINT"Moves made : ";M0V:ENDPR 

OC 

500PR0C0C a ENDPROC 

510DEFPROCTP 

520SOSC- 1 ! MOV=MOV+ 1 

530DD=FALSE 

540IF RLT=RLT-0. 1:DD=TRUE 

550LT-INT(RLT) 

560IF DD AND LT-0 PR I NT "Your 1 
amp has just gone out- " : 0=FALSE 

57OWON=(P0SX=8 AND IP (2) =8) 

580ENDPR0C 

590DEFPROCM 

600D I = I NSTR ( " NESW " , CO* ) 

610IF NP(PDSI ,DI)=0 PRINT"I'm 
a-fraid there's a wall in the way 
. " : ENDPROC 

620IF <P0SI=6 OR P0SI=9> AND < 
NOT OR (IP(l)OPOSI AND IP(1)< 
>0) ) PR I NT "You have fallen down 
a trapdoor • " : L0SE=TRUE: ENDPROC 

630POS I »NP < POS I , D I ) 

640PR0CCHECK 

650ENDPR0C 

660DEFPR0C0C 

670CN=FNcoma TN^FNth 




I can 

" : ENDP 



680 IF CN=0 OR TN=0 PRINT 

t work out what you mean. 
ROC 

6900N CN GOTO 700,700,710,710, 

720,730,740 

700PR0CTAKE: ENDPROC 
7 1 OPROCL I GHT : ENDPROC 
720PR0C0FF: ENDPROC 
730PROCDR0P: ENDPROC 
740PRDCK ILL I ENDPROC 
750ENDPR0C 
760DEFFNcom 

770NO-0: 1=0 
780REPEATi 1=1+1 

790 IF LEFT*<CO*,LEN(MOC*<I> > )= 
M0C*(I) N0=I 

800UNTIL N0>0 OR 1=7 

8 1 0=NO 

320DEFFNth 

830N0=0: 1=0 

840REPEAT: 1=1+1 

850IF RIGHT* <C0*,LEN( IN* (I> ) )= 

IN*(I) N0=I 

860UNTIL NCOO OR 1=6 
B70=N0 

880DEFPR0CTAKE 

890 IF IP(TN)OP0SI PRINT"If s 
not in here. ": ENDPROC 

900IF TN=5 OR TN=6 PRINT"Stop 
cracking the -f unny 's !": ENDPROC 

910IF _ CAD-3 PRINT"I can't carr 
y any more. I'm not BIONIC ! ' " : END 
PROC 

920IP<TN>=0 
930PRINT"RIGHT ON.," 
940CAD=CAD+1 
950ENDPR0C 
960DEFPR0CLIGHT 
970IF IP(TN)<>0 PRINT" I would 
but I haven't got i t - " I ENDPROC 

980IF TNOl PRINT"You*ve got t 
o be joking! ": ENDPROC 

990IF O PRINT"It's already on. 
Fool ! ": ENDPROC 
1000IF LT=0 PRINT"Oh no! It won 
t relight. ": ENDPROC 
1010PRINT"RIGHT ON. . " 
10200=TRUE 
1030ENDPROC 
1040DEFPR0C0FF 

1050IF IP(TN)<>0 PRINT"I'm not 
carrying that .": ENDPROC 

1060 IF TNOl PR I NT "HA 'HA! HA! HA 1 
" : ENDPROC 
1070IF NOT PRINT"It s already 
off . Idiot. ": ENDPROC 
1080PRINT"RIGHT ON.." 
10900=FALSE 
1 100ENDPR0C 
1110DEFPR0CDR0P 

1120IF IP(TN)O0 PRINT"I haven' 
t got it.": ENDPROC 



1130IPfTN)=P05I 



ON. 



U40PRINT"RIGHT 

1 150CAD=CAD-1 

1160ENDPR0C 

117ODEFPR0CKILL 

1180IF IP(TN)OP0SI PRINT"You'l 
1 be lucky to find it in here.": 
ENDPROC 

1190IF TN=5 PROCKILL_MUM:ENDPRO 
C 

1200 IF TN=6 PROCKILL DRACiENDPR 



YOU ARE TRAPPED In the 
Catacombs in this adventure 
written for the BBC B by Carl 
Stow of Hull. To escape, you have to 
find the treasure and deposit it in front 
of the main door to make it open. 

Some useful words to help you in 
lyour quest are HELP, GET, KILL and 
DROP. Beware of Dracula, the giant 
rats, the mummy and, above all, trap- 
doors. 
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I " 



>hoot 
IP (5) 



OC 

1210PRINT"Funny! 

1220ENDPR0C 

1 230DEFPR0CK I LL^MUM 

1240 IF IP(3)=0 PRINT"You 
at the mummy. Direct hit!!" 
=-1 : 8OSC+30I ENDPROC 

1250IF IP(4)=0 PRINT"You try ga 
rlic to drive the mummy away bu 
t he is not af -fected. M : ENDPROC 

1260PRINT"You have a fight with 

the mummy but you are kille 
d in the scuffle." 

1270LQSE=TRUE 



1310IF IP(3)-0 PRINT"You shoot 



fight DRACULA but 
neck and you 



V 



1280ENDPR0C 



1290DEFPR0CKILL_DRAC 
1300IF IP<4>=0 PR I NT" You get ou 
t your garlic. DRACULA is instant 

ly killed": IP (6) =-1 : SC=SC+30: END 

PROC 



at DRACULA but you mi ss. " : ENDPRO 

C 
1320PRINT"You 

he bites your 
are killed. " 

1330L0SE=TRUE 

1 340ENDPR0C 

1350DEFPRQCEND 

1360 IF WON PRINT ' 
ONE ! ! YOU MADE IT 

1370IF LOSE PRINT 

CHEESE MATE!!! YOU'VE 

IT UP! ■ ! !":SC=0 

1380PRINT' ' 
" moves," 

1390PRINT" 
re was ";SC; " . " 

1400PRINT ' 'CHRf 130; ' 
PACE TO TRY AGAIN" 

1 4 1 0G=GET : ENDPROC 

1420DEFPR0CINIT 

1430DIMFL*<9> 

144QFQRP=ir09 



WELL D 

HARD 
MESSED 

You took ";M0V; 

and your final sco 



PRESS S 




1450READPL*<P> 

1460NEXT 

1470DATA in a dark passage lead 
i ng east , i n a large room. Ther 
e is light from a grate dbov 
e 

1480DATA in a small dark cupboa 
rd,in a torture chamber 

1 490DATA in a long corridor, in 
a room full of giant rats 

1500DATA in a room full of skel 
etons,at the main doorway.lt is 
1 ocked 

1510DATA in a passage. The light 

is not on 

1520DIMNP (9,4) 

1 530F0R I = 1 T09 : FOR J = 1 T04 

1540READNPU , J) 

1550NEXTJ:NEXTI 

1 560DATA0 ,2,0,0,0,0,5,1,0,0,6,0 

1 570DATA0 ,5,7,0,2,6,0,4,3,0,9,5 

1 580DATA4 , , , , , 9 , ,0,6, , , 8 

15900 111 1 r (6) , IN* <6) , IP<6) 

1600F0RI = 1T06:READI*( I > , IN*< I J , 

IPC I) :NEXT 

1610DATA a lamp, LAMP, 5 

1620DATA the treasure, TREASURE, 
7 

1630DATA a loaded gun, GUN, 3 
1640DATA a clove of garlic ,GARL 
IC,l 
1650DATA a big mean mummy, MUMMY 

1660DATA Dracula,DRACULA,9 

1 670D I MMOCf < 7 > : FOR I = 1 T07 : READMO 
C*<I> :NEXT 

16B0DATA GET, PICK, TURN ON, LIGHT 
,BL0W OUT, DROP, KILL 

1690DIMDT*(4):F0RI=1T04:READDT$ 
(I) :NEXT 

1700DATA North, East , South, West 

1710DIMBRT$<2) 



1720BRT*<0>=" ( It s 
1730BRT*<1)»" ( It s 



not on ) " 
going out 



) 



s 



lit and it' 



1740BRT* (2)=" < It 
s shining brightly 

17500=FALSE: RLT=2. 9: LT=2: P0SI=1 
: LOSE=FALSE: W0N=FALSE: M0V=0: SC=5 
0:CAD=0 

1760ENDPR0C 

1770DEFPR0CINV 

1780PRINT I am carrying :" 

1 790SH=FALSE : FOR I = 1 T06 

18001 FIP<I)=0 PRINTI*< I > ;SH=TRU 



AND 1=1 AND NOT 
AND 1=1 AND PRI 
SH PRINT"nothi 



1810IFIP(I>=0 
PRINTBRT*(0) 
1820IFIP( I )=0 
NTBRT* <LT) 
1830NEXTI: IF NOT 

1840ENDPR0C 

1 850DEFPR0C I NST 

1 860PR I NT : FOR I = 1 T02 : PR I NTCHR* 1 3 
4 ; CHR* 1 57 ; CHR* 1 32 ; CHR* 141; SPC6; " 
CATACOMB S":NEXT 

1870PRINT CHR*129; "In this adve 
nture you are trapped in" 

1880PRINTCHR*129: "the Catacombs 
.To get out you must get" 

1390PRINTCHR$129; "the treasure 
and drop it at the main" 

1900PRINTCHR* 129; "door. The door 

wi 1 1 then open and you " 

1910PRINTCHR*129; "will be free- 
But first you must" 

1920PRINTCHR*129; "complete the 
adventure. " 

1930PRINT 'CHR*134j "Some command 
s to help you on your way" 

1 940PR I NTCHRS 1 34 ; " ar e ; HELP , TURN 

ON, KILL, DROP etc " 

1950PRINT'CHR*134; "But beware o 
f the trapdoors! ! ! ' " 

1960PRINT' 'CHR*133; "You will ge 
t a score at the end of the" 

1970PRINTCHR*133; "game. " 

1980PRINT' 'CHR*133;SPC8; "PRESS 
SPACE TO PLAY. " 

1990REPEAT UNTIL GET=32:CLS 

2000 ENDPROC 
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SI 



5 MODE 6 
10 DIM storeX<255) 
15 VDU 23,150,0,0,0,28,28,28, 



o , o 



26,0,0 



10 VDU 23,200,0,0,0,126,126,1 
VDU 19,1,2,0,0,0 



30 
35 
40 

-1'-. 
50 

60 
65 
70 
75 
80 
35 



PROCintro 
PROCinput 
FRQCassembl e 
PROCopt 

PROCmorse 
! '1-nLchai ce 
IF 6=32 THEN 
END 



50 ELSE RUN 



DEFPROCintro 

PRINT 'TAB (12) "MORSE 



TEACHE 



R" 



90 



..- 



PRINT*" Mors 

program which 
ami liar with the 
First, type a mes 



Teacher i s 
will make you -f 
Morse Code, 
age into the 



computer . Thi s should be 
longer than 255 symbols and 
it ten in capital" 

95 PRINT" letters, as all othe 
r characters will be ignored 

and treated as spaces. Pre 

ss the <RETURN> key when the ent 
ry is complete. The numbers t 
o 9 may dl so be used." 

100 PRINT" The computer will 

then turn the entry into Morse 
Code, with a delay between esc 



h letter you 
ng between 



determine. The spaci 
each word wi 1 1 be c 
in direct ratio to 



alculated 

thi s value. " 

105 PRINT" A screen display 
of the standard Morse code 

is shown throughout , and the mes 
sage is printed out on the seres 
n as the code is produced.' 

.110 PRINT ' TAB ( 10) "< PRESS SPACE 
BAR > " 

REPEAT UNTIL GET*=32 
ENDPR0C 



DEFPR0C input 
CLSrPRINT TABU 



) "MORSE 



115 

120 
125 
130 
135 
ACHER" 

140 PRINT" Input your messa 

ge now. The standard start of m 
essage and end of message' cod 
es will be automatically 
o it. These are listed 
ith the other codes 
nex t page. " ' 

145 INPUT LINE A* 

150 ENDPROC 



added t 
along w 
on the 



155 
160 
165 
I 70 
175 
180 



DEFPROCassemble 

FUR XX- 1 TO LEN(Ai-) 

i x=o 

AX^ASC (MID* < A* , XX , 1 ) > 
IF AX>64 AND A7.<91 THEN 
or eX < XX>=AX-64: 1 X-l : NEXT 

185 IF AX>47 AND AX<5S THEN 
oreX ( XX) =AX-21: 1 X-l : NEXT 

190 
; NF X T 



195 
200 
205 
210 
ACHER 



II- IX=0 1HEN storeX(XX)=40 
ENDPROC 




DEFPRUCopt 
CLS:PRINT TAB < 1 



) "MORSE TE 



215 PRINT '"DELAY BETWEEN LETTE 



INPUT" 1/ 100s OF A SECOND < 

500>"secX 

IF secX>500 OR secX<40THEN 



SECX=secV.*2 
ENDPROC 

DEFPROCmorse 

Cl.S: PRINT' TAB (1 




) "MORSE TE 



255 PROCtable 

260 PRINT TAB(9, 16) "< SPACE BAR 
TO START >" 
265 REPEAT UNTIL GET-32 
270 PRINT TAB(9,16>SPC(25) 
275 PROCstart 
2S0 PROCspace 
285 FOR XX=1 TO LEN<A*) 
290 IF storeX(XX) >0 AND store'/. 
(XXX27 THEN PRINT; CHR* (store 1 /. (X 
7. ) +64 ) ; 

store/. (XX) >26 AND store 
THEN PR INT; CHR* < st or eX < 



295 IF 
XCXXX37 
XX) +21); 

300 IF 
Ts" "; 



storeX(XX>=40 THEN PR IN 



305 


IF s 


:NEXT 




310 


IF s 


315 


ON s 


, 365 . 


, 370 , 


, 405 ■ 


,410, 


0,445,450, 


, 485 . 


,490, 


, 525 . 


,530 


320 


ty.-T 


tX=secX 


325 


NEXT 


330 


PROC 


335 


PR IN 


BAR>' 


1 


340 


REPE 



IF storeX<XX)=40 PROCspace 



toreX(XX>-0 THEN 330 
toreX(XX) GOSUB 355,36 
375 , 380 , 385 , 390 , 395 , 40 
415, 420 , 425 , 430 , 435 , 44 
455 , 460 , 465 , 470 , 475 , 48 
495 , 500 , 505 , 5 1 , 5 1 5 , 52 

I ME: REPEAT UNTIL TIME- 



end 

T ' TAB < 1 1 ) " < PRESS SPACE 

Al UNTIL GET«32 
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/ / 



/ 



/ 



/ 



/ 



/ /' 




345 
350 
355 
360 

TURN 
365 

TURN 
370 
375 
380 

TURN 
385 
390 

TURN 
395 
400 

TURN 
405 
410 

TURN 
415 
420 
425 



ENDPRUC 

PROCd: PR0C1 : RETURN 

PR0C1 : PROCd : PROCd : PROCd : RE 

PROC] sPROC «l: l l-iii l : PROCd: RE 

I 'RlU I : PROCd: I 'Kilt -l:RI- It'K'N 

PROCd : RE: TURN 

PROCd : PROCd : PR0C1 : PROCd : RE 

PR0C1 : PROC] : PROCd : RETURN 
PROCd : PROCd : PROCd : PROCd : RE 

PROCd : PROCd : RE 1 1 IRN 

PROCd t PROC .1 :PR0C1 :PR0C1 : RE 

PR0C1 : PROCd: PR0C1 : RETURN 
PROCd : PR0C1 : PROCd : PROCd : RE 

PROC'l : PR0C1 : RETURN 
PRUC1 : PROCd: RE TURN 
PR0C1 .- PR0C1 : PR0C1 : RETURN 



LEARN and practise Morse Code 
with this program written for the 
BBC B by John Hopwood of 
Truro, Cornwall. 

The program displays the standard 
Morse Code table and also allows you to 
type in a message of up to 255 symbols 
which it will then reproduce in the 
appropriate dots and dashes. You can 
choose the speed of the message to suit 
your skill level. 

Make sure your message is in cap- 
itals; anything else will be interpreted 
by the program as a space. 



430 PROCd : PR0C1 : PR0C1 : PROCd : RE 

TURN 

435 PR0C1 : PROC! : PROCd : PROC1 : RE 

TURN 

440 PROCd : PROC J : PROCd: RETURN 
445 PROCd : PROCd : PROCd : RETURN 
450 PR0C1 : RETURN 
455 PROCd: PROCd: PR0C1: RETURN 
460 PROCd : PROCd : PROCd : PR0C1 : RE 

TURN 

465 PROCd : PR0C1 : PR0C1 : RETURN 
470 PR0C1: PROCd: PROCd: PR0C1: RE 

TURN 

475 PR0C1 : PROCd : PR0C1 : PR0C1 : RE 

TURN 

480 PR0C1:PR0C1 : PROCd: PROCd: RE 

T URN 

485 PR0C1 : PR0C1 : PR0C1 : PR0C1 : PR 
0C1: RETURN 

490 PROCd : PR0C1 : PR0C1 : PR0C1 : PR 
0C1: RETURN 

495 PROCd: PROCd: PROC 1 : PR0C1 : PR- 
OCX : RETURN 

500 PROCd : PROCd : PROCd : PR0C1 : PR 
0C1 : RETURN 

505 PROCd : PROCd : PROCd : PROCd : PR 
OCX: RETURN 

5 1 PROCd : PROCd : PROCd : PROCd : PR 
OCd: RETURN 

5 1 5 PR0C1 : PROCd : PROCd : PROCd : PR- 
OCd: RETURN 

520 PR0C1 :PR0C1 : PROCd: PROCd: PR 
OCd: RETURN 

525 PR0C1:PR0C1:PR0C1 : PROCd: PR 
OCd: RETURN 

530 PR0C1 : PR0C1 : PR0C1 : PR0C1 : PR- 
OCd: RETURN 



540 DEFPR0C1 

545 t7.=TIME 

550 SOUND 3,-10,128,8 

555 REPEAT UNTIL TIME-t7.=65 

560 ENDPROC 
565 

570 DEFPROCd 

575 t"/.=TIME 

580 SOUND 3,-10,128,3 

585 REPEAT UNTIL TIME-t7.=40 

590 ENDPROC 
595 

600 DEFPROCspace 

605 tX=TJME: REPEAT UNTIL TIME- 
t*/.=SEC"/. 

610 ENDPROC 



615 

620 DEFPROCstart 

625 PR0C1 : PROCd :PR0C1: PROCd: PR- 
OC 1 

630 ENDPROC 

635 

640 DEFPROCend 

645 PROCd: PROC 1 : PROCd: PROC 1 : PR- 
OCd 

650 ENDPROC 

655 

660 DEFPROCtable 

665 RESTORE 835 

670 FOR X'/.=3 TO 11 

675 PRINT TAB(2,X7.)CHR* (62+X7.) 



680 GOSUB 820: NEXT 
685 FOR X"/.=3 TO 11 
690 PRINT TAB ( 1 2 , X7.) CHR* < 71 +X7. 

695 GOSUB 820: NEXT 
700 FOR X7.=3 TO 10 
70S PRINT TAB(22,X7.)CHR*(80+X7. 



) ; 



>; 



>; 



710 GOSUB 820: NEXT 

715 FOR X7.=3 TO I I 

720 PRINT TAB(32,X7.)CHR*(46+X7. 

725 GOSUB 840: NEXT 

730 PRINT TAB < 22, U) "0"; 

735 VDU 200,200,200,200,200 

740 PRINT' 'TAB (2) "Start ai mes 



sage : 
745 



VDU 200 , 1 50 , 200 , 1 50 , 200 



750 PRINT TAB<2)"End of messag 

• 

755 VDU 1 50 , 200 , 1 50 , 200 , 1 50 

760 ENDPROC 

765 

770 



DEFPROCchoice 

775 CLS 

780 PRINT TAB < 12) "MORSE 
R" 

785 PRINT' 'TAB (2) "Press 
PACE BAR> to try the same 
age again, and <S> to set i 
message" 

790 G=GET: IF G<>32 AND 
HEN 790 



TEACHE 

the <S 
mess 
a new 

G<>83 T 



795 


ENDPROC 










800 














805 


REM 


Type 


this data 


l n 


csre 


fully 














810 


REM 


Any 


mi stakes 


Wl 


11 


ruin 


the 














815 


REM 


code 


table 









o 



820 READ Q7.,W7.,E7.,R7. 

825 VDU Q*7.*50,W7.*50,E7.*50,R7.*5 

830 RETURN 

835 DATA 3,4,0,0,4,3,3,3,4,3,4 



3,4,3,3,0,3,0, , , 



s « ■-> 



,4,3,4,4,3 



0,3,3,3,3,3,3,0,0,3,4,4,4,4,3,4 
0,3,4,3,3,4,4,0,0,4,3,0,0,4,4,4 
0,3,4,4,3,4,4,3,4,3,4,3,0,3,3,3 
0,4,0,0,0,3,3,4,0,3,3,3,4,3,4,4 
0,4,3,3,4,4,3,4,4,4,4,3,3 

840 READ 07., W/. ,E7.,R7. , T7. 

845 VDU G7.*50,W7.*50,E7.*50,R7.*5 
0,T7.*50 

850 RETURN 

855 DATA 3,4,4,4,4,3,3,4,4,4,3 

3344333343333343 

,3,3,3,4,4,3,3,3,4,4,4,3,3,4,4,4 

,4,3 
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MR 



10 REM **#**■*■#*#*##** 

20 REM * MAZE CRAZE * 
30 REM ****#**#**»*** 

40 REM BY I . FREELANCE 

50 MODE 1 

60 COLOUR 129 > 

70 CLS 

80 B*="*" 

90 C*- STRING* (40, B*> 
100 DIM MAZE* (8,8) 
110 FOR Y=l TO 8 
120 FOR X=l TO 8 
130 READ MAZE*(Y,X) 
140 NEXT X 
150 NEXT Y 
160 REM maze set up 
170 X=i:Y=l 

180 A*-MAZEf (Y, X) 

190 BOSUB 310 

200 VDU 31,0, 20 

210 INPUT DIRECTION* 

220 DIRECTION*=LEFT* (DIRECTION 
*,1) 

230 N= I NSTR ( A* , D I RECT I ON* , 1 ) 

240 IF N=0 THEN 210 

250 IF DIRECTION*="N" THEN Y=Y 
-1 

260 IF DIRECTION*="S" THEN Y=Y 
4-1 

270 IF DIRECTION*^"W" THEN X=X 
-1 

280 IF DIRECTION*="E" THEN X=X 
+ 1 

290 IF X-8 AND Y»3 THEN 500 

300 60T0 ISO 

310 REM screen display 

320 CLS 

330 PRINT C* 

340 PRINT TAB (3); "You can move 
: " ; A* 

350 PRINT 

360 PRINT C* 

370 PRINT 

380 VDU 31,0,10 

390 RETURN 

400 STOP 

410 REM data line 

420 DATA S,SE,WE,WE,WE,WS,ES,S 
W 

430 DATA NS,NE,WE,WE,WS,NS,NS, 
NS 

440 DATA NS,SE,WE,WS,NS,NS,NS, 



N 



450 DATA NS,NS,SE,NW,NS,NS,NE, 
WS 

460 DATA NSE,NSW,NE,WE,NSW,NE, 
WS,NS 

470 DATA NS,NS,E,WS,NE,WS,NS,N 
S 

480 DATA NS,NE,WE,NEW,WS,NS,NE 
,NW 

490 DATA NE,WE,WE,WE,NW,NE,WE, 
■W 

500 REM maze -finish 

51/0 CLS 

520 VDU 19,3,8,0,0,0 

530 PRINT TAB (11 ,5) ; "YOU HAVE 
DONE IT" 

540 END 




OU ARE LOST in a mystery 
maze and must try to find your 
way to the finish. Key-in N, S, E 

or W for the direction you wish to go; 

the computer will not allow you to 

proceed if there is a wall in the way. 

One hint to help you — the maze is an 

eight by eight grid. 

Invisible .Maze was written for the 

Electron by Ian Freelance of Hull, 

North Humberside. 
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2320N ERROR GOTO 1030 
iOlOMQDE 6: REPEAT: PROCqame: r=GF 
1 : UNTIL FALSE 
1 020 
1 030RUN 
1040 
1 050 
1 060 

1070DEF PROCgsme 
1080CLS 

1 090RR0C initialise 
UOOPROCdeal 
1 1 10trump=RND(4)-l 
1120FQR roundel TO 13 
1130PR0Cdisplay<l> 
1 140REMr=*GET : PROCdi spl ay < 2) 



0Chplay2:G0T0 1170 
1 1 60PR0Chpl ay 1 : PROCyp 1 ay2 
1 170PROCcompare 

1180NEXT round 

1 1 90PROCd i spl ay ( 1 ) 

1 200ENDPR0C 

1210 

1220 

1230 

1240DEF PROCi nitialise 

125GL0CAL F 

1260DIM card* (12> ,card (3, 12) 

1270F0R F=0 TO 12 

1280READ card*(F> 

1290NEXT F 

1300DATA 2,3,4,5,6,7,8,9, 10, J, Q 

,K,A 



23,2 



24,8,28,28,107,127, 
;3, 225, 8, 28, 62, 127,62,2 
6,54,127,127,127,6 
7,8,28,62, 127,12-7, 



23, 



*"i* 



23 , 22 




1310win=l sypts=0: hpts=0 

1320VDU 
107,8,28 

1 330VDU 
8,8,0 

1 340VDU 
2,28,8,0 

1350VDU 
127,28,62 

1 360 J- 1 1 : Q- 1 2 : K- 1 3 : A= 1 4 

1 370ENDPR0C 

1 380 

1 390 

1 400 

1410DEF PROCdeal 

1420F0R F-l TO 13: FOR G=l TO 2 

1430r-RND<13)-l:s=RND(4)-l: IF c 
ard(s,r>>0 THEN 1430 ELSE card(s 
, r ) =G 

1440NEXT G:NEXT F 

1450ENDPR0C 

1460 

1470 

1480 

1490DEF PROCdisplay(n) 

1500LOCAL F,G 

1510CLS 

1520PR1NT TAB (0,1) "WON: ";ypt.5, 
TAB (10,1) " TRUMPS : " ; CHR* ( 224+tr 
Limp) ,TAB(24,1) "LOST: "jhpts 

1530F0R F=*0 TO 3s PRINT TAD (2,4+ 
2*F) CHR* (224+F) : NEXT F 

1540F0R OQ TO 3 

1550PRINT TAB(6,4+2*G>; 

1560F0R F=12 TO O STEP -.1 

1570IF card(G,F)=n THEN PRINT c 
ard*(F)i" "; 

1580NEXT F 

1590NEXT G 

1 600ENDPR0C 

1610 

1 620 

1630 

1640DEF PROCinput 

1650PRINT TAB(0, 18) "Your turn t 
o pi ay. " 

1660 PRINT TAB (0,19) "Enter SUIT 

then enter CARD: " 

1670REPEAT 



TO PARAPHRASE an old ad- 
age, east is east and whist is 
whist, and there is no need to 
say more for fans of the popular card 
game about this program written for 
the BBC B by Sunil Iyer of Dundee 

University. 

His computer version of Whist will 

prove a worthy opponent for anyone 
who fancies a quiet game or simply 
wants to sharpen their playing in prep- 
aration for the next whist drive. 
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1680REPEAT: PRINT TAB < 0,20) " 

":PRINT TAB < 0,20) ; : A:r-GET$ : 
5U i t = I NSTR ( " CDHS " , A t ) - 1 : UNT I L su 
i t<>- 1: PR I NT A* 

1690REPEAT:PRINT TAB (20,20) ; : A* 
=GET$: UNTIL INSTR < " 123456789JQKA 
" , A$ > >0 

1700IF A$="l" THEN A$="10" 

17I0PRINT A* 

1720card=EVAL A*-2 

1730UNTIL card(suit,card)=l 

1740ENDPROC 

1750 

1760 

1770 

1780DEF PROCyplayl 

1790PR0Cinpi.it 

1800c ard (sua t , card) =0 

1810ENDPROC 

1820 

1830 

1840 

1850DEF PROChplayl 

1860r=RND<4)-l:s=RND(13)-l: IF c 
ard(r,s)<>2 THEN. 1860 

1 87 Oh i ssui t=r : hi sc ar d=s 

1880PRINT TAB(0,17>"He plays th 
e ";CHR*<224+hissuit) ; " ";card$( 
hi scard) 

1890card <hissui t , hi scard > =0 

19O0ENDPROC 

1910 

1920 

1930 

1940DEF PR0Chplay2 

1950REM: PRINT FNsui t (2, suit) : ST 
OP 

1960 IK FNsuit < 2, suit) =0 THEN PR 
0Cothe?rsuit:60T0 2030 

1970hissui t-suit 

1980F=card+l : REM play highes 

t card 

1990 IF F>12 THEN 2020 

2000IF card (suit ,F) =2 THEN hisc 
ard=F : hi ssui t=sui t : GOTO 2050 

20 10 IF F<12 THEN F=F+1:G0T0 200 



play lowest 



O 

2020F=O:REM 

card 

2030 IF card(suit,F)=2 THEN hisc 
ard=F:GOTO 2050 

2040IF F<card-1 THEN F=F+1:G0T0 

2030 

2050PRINT TAB (0,21) "He plays th 
e ";CHR*(224+hissuit) ;" " ;card*< 
hi scard) 

2060c ard (hi ssui t ,hi scard ) =0 

2070r=GET 

2080ENDPROC 

2090 

2 1 00 

2110 

2120DEF PROCothersui t 

2130F-0 

2140IF card(trump,F)=2 THEN his 
car d=F: hi ssui t=trump: GOTO 2180 

2150IF F<12 THEN F=F+l:GOT0 214 
O 

2160hiscard=0 

2170hissui t=0 

2180IF card(hissuit ,hiscard)=2 
THEN 2210 

2190hissui t=hi ssui t + 1 
t<4 THEN GOTO 2180 

2200hiscard=hi scard+1 

2210ENDPR0C 

2220 

2230 

2240 

2250DEF FNsuit <r,s) 

2260t=0 

2270F0R F-0 TO 12 

2280IF card(s,F)=r 

2290NEXT F 

2300=t 

2310 

2320 

2330 

2340DEF PROCyplay2 

2350PR0C input 

2360IF suitOhissuit AND FNsuit 
( 1 , h i ssui t ) >0 THEN 2550 



IF hi ssui 
GOTO 2170 



THEN t=t+l 



y V 



2370c ard (sui t , card ) =0 

2380r=GET 

2390ENDPR0C 
2400 

2410 

2420 

2430DEF PROCcompare 

2440IF sui tOt rump AND hi ssui t= 
trump THEN win=2:G0T0 2500 

2450IF SUit=trump AND hi ssui t 
trump THEN win=l:G0T0 2500 

2460 IF win=l AND hissuitOsuit 
THEN win=l:G0T0 2500 

2470IF win=2 AND hissuitOsuit 
THEN win=2:G0T0 2500 

2480IF card>hiscard THEN win=l 

2490IF hiscard>card THEN win=2 

2500IF win=l THEN ypts=ypts+l 

2510IF win=2 THEN hpts-hpts+1 

25?'"'ENDPR0C 




Top listings for the BBC B 
and the Electron 




PLUS software 
reviews and news 

Every two months for 
only 95p 

Make sure of your 
copy, subscribe today 

The complete software 
companion for the 
BBC B and Electron 



I 
B 



Mail to: ECC Publications Limited: 196-200 Balls Pond Road, London Nl 4AQ 

Yes — I'd like to subscribe to Acorn Programs (6 issues — price £6) 

I enclose a cheque for £ Please charge my credit card: 

Card name Number 

Name Address 



I 
I 

I 

L 



Date 



Signature 

N.B. This offer applies to U.K. subscribers only. Overseas rates available on request. 
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I 4A0 vtAasxo* 
I 4*H *£l-dx£P 
la*** <iA*jx44. 
I am (UU*x£S>. 



I /^\ N ARRIVAL at a distant plan- 

II I et, you must bale out of your 
^*^ mothership and guide your 
space vessel towards the moving land- 
ing craft below. Every time you achieve 
your difficult mission you advance to a 
new screen and the game becomes a 
little faster. If you fail and crash, you 
lose one of your three lives. 

Move your ship left and right as it 
floats downwards using the < and > 
keys and press the space bar to drop 
from the mothership. Docking with the 
landing craft earns you 10 points, plus a 
bonus of the screen number multiplied 
by 10. At screen 10 and again at screen 
20 you gain an extra life. 

Steven and Mark Ozanne, who wrote 
Space Landing for the Electron, set a 
high score of 2,750 points. 



10 MODE lrPROCINSTRUC 
20 MODE 2 

30 N*- M ELECTRON" : HI=50 
40 SC0RE=Q:LI=3:SHEET»1 
50 GCOL 0,7: MOVE 0,0: DRAW 127 
0,0: DRAW 1270, 120: DRAW 0,120:DRA 
W 0,0 

60 B~RND(2> 
70 VDU 23,1,0;0;0;0; 
SO FOR 1=1 TO 100 
90 6C0L 0,RND(15) : PLOT 69, R 
ND< 1280) ,RND( 1020) :NEXT I 

100 VDU23, 240, 0,0, 0,0, 1 ,2,7, 10 
: VDU23 , 24 1 , , 24 , 24 , 1 26 , 1 65 , 24 , 
0,0 : VDU23, 239, 0,0, 0,0, 128,64,2 
24 , 80 

1 1 SSH= 1 

120 PRINT TAB(SSH-1,1> ;CHR*(24 

0) : PRINT TAB(SSH,1);CHR*(241) 
: PRINT TAB(SSH+1,1) ;CHR*<239) 

130 SSH=SSH+1:IF SSH=19 THEN P 
RINT TAB(SSH-2,1) ; " " : SSH=3 

140 FOR 0=0 TO 100:NEXT:PRINT 
TAB(SSH-2,1> ; " " : IF INKEY(-99) T 
HEN GOTO 160 

150 SOUND 0,-15, -50,2: GOTO 120 

160 PRINT TAB(SSH-2,1) ;CHR*(24 
0) 

170 PRINT TAB (1,1);" " 

1 80 VDU23 , 24 1 , , 24 , 24 , 1 26 , 1 65 , 
24,0,0 

190 VDU 23,230,66,102,129,129, 
129,66, 189 

200 U=2:S=SSH-l:SC=RND(16)+2 

210 COLOUR 3 

220 FOR 1=1 TO LI 

230 PRINT TABC11+I ,30) ;CHR*(24 

1 ) 

240 NEXT: COLOUR 6 
250 PRINT TAB(12, 29) ; "LIVES" 
260 PRINT TABC1 ,29) ; "SCORE" 
270 COLOUR 1 

280 PRINT TAB (1, 30 ); SCORE 
290 COLOUR 3 

300 PRINT TAB(S,U) ;CHR*(241) 
310 COLOUR 5 
?0 PRINT TAB(SC,27)|CHR*<230) 



330 FOR 0=0 TO 200-SHEET* 10: NE 
XT : IF INKEY(-103) THEN PROCLEF 
T 

340 IF INKEY(-104) THEN PROCRI 
GHT 

350 PRINT TAB<S,U) ; " » 



360 PRINT TAB(SC,27);" " 

370 SOUND 0,-15,-25,1 

380 IF U=27 AND S=SC THEN PROC 
score 

390 IF U=27 THEN PROCCRASH 

400 IF SCO THEN B=2 

410 IF SO 17 THEN B"l 

420 IF B=l THEN SC=SC-1 

430 IF B=2 THEN SOSC+1 

440 U=U+1 

450 IF S<1 THEN S=19 

460 IF S>19 THEN S=l 

470 GOTO 210 

480 DEF PROCLEFT 

490 IF U=27 AND S^SC THEN PROC 
score 

500 IF U=27 THEN PROCCRASH 

510 PRINT TAB(S,U) ; " " 

520 PRINT TAB(SC,27) ; " " 

530 SOUND 1,-15, 1,2: S=S-1: GOTO 
380 

540 DEF PROCRI GHT 

550 IF U=27 AND S=SC THEN PROC 
score 

560 IF U=27 THEN PROCCRASH 

570 PRINT TAB(S,U);" " 

580 PRINT TAB(SC,27);" " 

590 SOUND l,-15,l,2:S=S+i:G0T0 
380 

600 DEF PROC score 

610 SOUND 1,-15, 70, 5:S0UND 1,- 
15,30, 10 

620 COLOUR 2 

630 PRINT TAB (5,8) ; "BONUS " ; SH 
EET*10 

640 SC0RE=SC0RE+SHEET*10 

650 SC0RE=SC0RE+10: IF SHEET=10 
OR SHEET=20 THEN LI=LI+1 : SOUND 
1 , - 1 5 , 90 , 5 : SOUND 1 , - 1 5 , 50 , 5 : SOUN 
D 1,-15, 20, 15:PRINT TAB (5 , 10) ; "E 
XTRA LIFE" 

660 FOR 1=1 TO 2000: NEXT 

670 PRINT TAB (5,8) ; " 

680 PRINT TAB (5, 10);" 

II 

690 PRINT TAB (5, 13);" 

II 

700 PRINT TABCSSH-2, 1) ; " 

710 COLOUR 7 

720 PRINT TAB<0,27);" 

II 

730 SHEET=SHEET+1 
740 GOTO 110 



750 DEF PROCCRASH 
760 LI=LI-1 
770 FOR 1=1 TO 16 
780 VDU 19,0,I,0,0,0:S0UND O,- 
15,1, IxNEXT 

790 PRINT TAB(SSH-2, 1); " 



800 PRINT TAB (11, 30) ; " 
OLOUR 7 

810 PRINT TAB(0,27);" 



|| 



:C 



820 GCOL 0,7: MOVE 0,0: DRAW 0,1 
20: DRAW 1270,120 

830 IF LI=0 THEN PROCEND 

840 GOTO 110 

850 DEF PROCEND 

860 CLG: COLOUR 1 

870 IF SCORE >H I THEN PROCHI 

880 PRINT TABd ,3) ; "YOUR SCORE 
WAS ":COLOUR 12:PRINT TAB(16,3) 
; SCORE 

890 COLOUR 2 

900 PRINT TAB(3,10> ; "HIGH SCOR 
E "; HI | I PRINT TAB (4 , 12) ; "BY " ; N* 

910 COLOUR 7 

920 PRINT TAB (3, 20) ; "PRESS 'C 

TO" 
930 PRINT TAB (5,22) ; "PLAY AGAI 
N" 

940 REPEAT UNTIL GET=67 
950 CLS:GOTO 40 
960 DEF PROCHI 

970 PRINT TAB(3,3) "ENTER YOUR 
NAME" 

9B0 COLOUR 13: INPUT N* 
990 H I -SCORE : CLS : ENDPROC 
1000 DEF PROCINSTRUC 
1010 COLOUR 130: CLS: GCOL 0,0: VD 
U 5 

1020 MOVE 400,900 : PRINT "INST 
RUCTIONS" 

1030 MOVE 400,89/ : PRINT " 

" : GCOL 0,1 

1040 MOVE 275,778s PRINT " USE < 
TO MOVE I EFT" 

1050 MOVE 270,678: PRINT " USE > 
TO MOVE RIGHT" 

1060 MOVE 100,550: PRINT "USE SP 
ACE tO DROP OUT OF YOUR SHIP" 

1070 GCOL 0,0:MOVE 420,300tPRIN 
I "PRESS SPACE": MOVE 420,250: PR I 
Nl "III ITINl INUI " 

H>!i,. KIMAI UNI II L»FT=32sENDPR0 

i; 














ACORN PROGRAMS August/September 1984 



57 




. 



LEICESTERSHIRE 



D. A. COMPUTERS LTD. 

Official BBC dealer and service centre. Every- 
thing you require lor the BBC computer inc. 
Canon Printers, fcpson Printers. Selection of 
Disc Drives, P. L. Digitiser, Colour and 
Monochrone Monitors. Full range of games 
software and books 

104 LONDON ROAD, LEICESTER. 

TEL: (0533) 549407 



SOUTH LONDON 



ACORN BBC COMMODORE 

COMPUTERS 

Paul Electrical Ltd, 250-252 Grand Drive, 
Raynes Park SW20. 01-542 6546. 

ALSO TRADING AS 

Woods Radio, 257 Lavender Hill, SW1 1 . 
01-228 2682 

Supply and Repairs 10 £cfuc<ilion and Local Councils 



LONDON 




PEDRO COMPUTER SERVICES LTD, 

45/47 Clerkenwell Road, 

London EC1 M5R5 

Tel: 251-8635 

We specialise in computer hardware 



ESSEX 



NOTTINGHAMSHIRE 



SOUTH LONDON 



ESTUARY HOME 
COMPUTER CENTRE 

Estuary Software Products now have 
BBC's in stock together with a wide range 

of software and accessories 
261 Victoria Ave., Southend on-Sea. 
Credit Card Holders may phone __ 
their orders '(0702) 43568 Ej 



SP ELECTRONICS 

Specialists in BBC Computers, Disc 
Drives, Printers and extensive range of 

software. 
Full after sales service. 

48 Limby Road, Huckwall, Notts. 
Tel: (0602) 640377 




SOUTH LONDON 



SUFFOLK 



AYRSHIRE 



CROYDON COMPUTER CENTRE 

ACORN SERVICE CENTRE 

Everything for Electron Atom and BBC 

Micro; Software, Printers, Drives, Paper 

& Spares, etc. 

29a Brigstock Rd, 

Thornton Heath CR4 7JJ 

01-689 1280 



Suffolk Computer Centre 

BBC Microcomputer Service & tnlormation Centre 

Microcomputers • Disc Drives • Monitors 

Matrix & Daisywheel Printers • Joysticks 

Cassettes • Light Pens • Graphics Tablet 

Books & Software 

3 Garland St., Bury St Edmunds- 
Telephone: 0284-705503 
Telephone: 0284 60041 

Open. Mon - Sat 9 - 5.30. 



WEST COAST 
PERSONAL COMPUTERS 

BBC, Acorn and Torch dealers. Range of 
Disk Drives, Printers and Monitors on 
display. 

47 Kyle Street, Ayr. 
(0292) 285082 



HERTFORDSHIRE 



CO DURHAM 



NORTH LONDON 



STEVENAGE 

Compulers for home and business. 

• Disc Drive/Upgrades • Printers • 

Monitors • Business Packages • Games 

• Service Contracts • 



Q-TEK SYSTEMS 

119 High St, 



'Mf»17JiBci 



Tel: 043*60011 



DARLINGTON 
COMPUTER SHOP 

Official BBC Microdealer and service cen- 
tre. Full range of monitors, disc drives 
and printers, including Torch Z80 disc 
pack. Available for demonstration. 

75 Bondgate, Darlington, Co Durham. 
Tel: 0325 487478 



JOYSTICKS 

FOR BBC MICRO at an amazingly low price. 
ONLY C9.95 A PAIR including P&P 

Easier to handle and faster than others costing 
twice as much. 

Cheques/P.O.s to 

PERITRON 

Dept. AP. 21 Woodhouse Road. London N12 SEN. 



ORDER 
COUPON 



3 ISSUES OF 
ADVERTISING 
FOR ONLY £30 

3 FOR 2 
OFFER 



PLEASE PLACE A 
DEALER BOX IN YOUR 
ACORN PROGRAMS 



NAME 



ADDRESS 



CHEQUE/PO ENCLOSED 
FOR £30 



as YOU 
can imagine! 



■ 



■<P 



S& 



••P 



• * 



<S-'- • 



/ 



BBC MODEL 2 • SPECTRUM 
COMMODORE 64 

With Grafpad you can now add a new dimension to your 
computer enjoyment, but most important, it helps you 
create yourown application programmes by the simple use 
of the Grafpad! 

The Grafpad comes complete with a cassette comprising 
two programmes. 

THE FIRST PROGRAMME 

displays the co-ordinates of your screen area. The 

co-ordinates are based on the screen with a grid size of 

1023 x 1279 pixel, also in the Grafpad giving you a grid 

size of 320x256 pixels! 

THE SECOND PROGRAMME 

provides you with the utilities for circles, 
h squares, triangles, free-hand, erasing 

line-drawing etc, and of course, full 
"Fill-in" facility in 16 different colours by 

the simple use of the pen! 

**^m *. Draw from a simple apple to a computer 

circuit - store in cassette or disk, 

perhaps transfer direct to a 

printer - in black and white 

or full glorious colour! 

Purchase unique C.A.D. (Computer Aided 

Designs) programme and add further enjoyment 

and professionalism to your computer designs! 

The Grafpad comes complete with Operational Manual, 
Programmes, The Grafpad and Pen and it simply plugs 

in your computer. 






(Size: 25mm height x 55mm width x 260mm depth) 
Weight: 1.2 kg (Gross) 
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(The above designs were drawn by a 12-year-old at our 
showrooms!) 



DEALER INQUIRIES WELCOMED 
SPECIAL DISCOUNTS FOR EDUCATIONAL 
AUTHORITIES 

BRITISH MICRO 

A HEGOTRON GROUP COMPANY 

Unit Q2,Penfold Works, 

Imperial Way, Watford, HERTS WD2 4YY 

TEL: (0923) 48222. TELEX: 946024 
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HOW TO ORDER: 

BY TELEPHONE: 
If you are an American Express, 
Barclaycard, Diners Club or Access 
Card Holder simply telephone us giving 
your Card No., Name, Address and 
ilem(s) required and your orders will be 
dispatched within 48 hours! 



BY POST: 

Simply fill in the coupon, enclosing 
yourcheque/RO. made payable to: 
BRITISH MICRO, or use the special 
section lor Credit Card Holders, and 
post to the address below. 
Please allow 14 days for delivery. 



■ Post to: BRITISH MICRO, UNITQ2, PENFOLD WORKS 
IMPERIAL WAY, WATFORD. HERTS. WD2 4YY 

Please send me Grafpad for: 

□ BBC MODEL 2 □ SINCLAIR SPECTRUM 

(Please tick) 



□ COMMODORE 64 



Qty. 


Item 


Ex. VAT 


Inc. VAT 


Total 




Grafpad Complete 


£125.00 


£143.75 






CAD. Programme 


£18.00 


£20.70 




Postage, Packing & Insurance 


£5.00 




£ 



I prefer to pay with my American Express, Barclaycard, Diners, Access Card 
(Please cross out whichever is not applicable) 



CARD NO. 



SIGNATURE 
NAME 



ADDRESS. 



L 



Address above must be the same as card holder. 



OMPUTER 



Available from all good BBC Computer Dealers. 
Available by Mail Order from Computer Concepts, 16 Wayside, Chipperfield, Herts WD4 95J. 

Or by 'phoning with your credit card number on (09277) 69727. 
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